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LA BIBLE DU 
PROGRAMMEUR 

DE L'AMSTRAD 

CPC (Tome 6) 

Tout, absolument tout sur 
le CPC 464. Ce livre est 
l'ouvrage de référence 
pour tous ceux qui veu- 
lent programmer en pro 
leur CPC. Organisation 
de la mémoire, le con- 
troleur vidéo, les inter- 
faces, l'interpréteur et 
toute la ROM DESAS- 
SEMBLEE et COMMENTEE 
sont quelques-uns des 
thèmes de cet ouvrage 
de 700 pages 

Réf. : ML 122 

Prix : 249 FF 


7% 


MICRO APPLICATION 


13,rue Sainte Cécile 75 OO9 PARIS 
Tél. :(1) 47-70-32-44 








LE LANGAGE 
MACHINE 
DEL'AMSTRAD CPC 
(Tome 7) 

Ce livre est destiné à 
tous ceux qui désirent 
aller plus loin que le 
BASIC. Des bases de la 
programmation en as- 
sembleur à l'utilisation 
des routines système, 
tout est expliqué avec 
de nombreux exem- 
ples. Contient un pro- 
gramme assembleur, 
moniteur et désassem- 
bleur 

Réf. : ML 123 

Prix : 429 FF 


LA BIBLE DES 


CPC 664/6128 
(tome 16) 

Un régal pour tous ceux 
qui veulent tout connaïi- 
tre sur les CPC 6128 et 
664. Analyse du système 
d'exploitation. du pro- 
cesseur, le GATE ARRAY. 
le contrôleur video. le 
8255, le chip sonore. les 
interfaces. Comprend 
un desassembleur, les 
points d'entrée des rou- 
tines commentés de 
l'interpréteur et du sys- 
teme d'exploitation Un 
super livre comme toutes 
les Bibles! 
Rét. ML 146 
Prix 499 F 
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MACHINE 


LIVRE DU LECTEUR 
DE DISQUETTE 
AMSTRAD CPC 
{Tome 10) 

Tout sur la programma 
tion et la gestion des 
données avec le 6128 
DD1-1 et le 664! Utile au 
debutant comme au 
programmeur en lan- 
gage machine. Contient 
le listing du DOS com- 
mente., un utilitaire qui 
ajoute les fichiers RE- 
LATIFS a l'AMDOS avec 
de nouvelles comman- 
des BASIC. un MONITEUR 
disque et beaucoup 
d'autres programmes et 
astuces 

Ref ML127 

Prix 449FF 


LELIVREDU 

CP/M AMSTRAD 
(Tome 12) 

Ce livre vous permettra 
d'utiliser CP/M sur les 
CPC 464, 664 et 6128 
sans aucune difficulté 
Vous y trouverez de 
nombreuses explications 
et les différents exem- 
ples vous assureront une 
maitrise parfaite de c 
très puissant système 
d'exploitation qu'est 
CP/M 

Réf. ML 128 

Prix : 449 FF 


[914 PA) 19174 
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DITO 


DU JAMAIS VU ! 


9 logiciels de qualité pour 6 
francs, voilà qui nous met le 
prix de chaque programme à 
66 centimes. Qui dit mieux & 
Et pas n’importe quels 
programmes : 3 jeux dont 
Runaway qui vous procurera 
les mêmes frissons que le 





OMMAIRE 


Woes °° 





célèbre Lode Runner qui RUNAWAY 

occupait le sommet des hit- Vous Lattes De Rünnef | ABC | REFONT 2 
parades Apple et Commodore sur APPLE II 2 Non, quel Youpi ! C'est la rentrée, il est L’AMSTRAD ne possède pas 
pendant plusieurs mois. Puis 3 manque de culture, mais je ne temps d'apprendre à écrire les sprites d’origine comme 
utilitaires dont un super vous en veux pas frop. qmesce superbe logiciel d'autres machines. Refont L 
redéfinisseur de caractèrés et D'ailleurs, ce programme éducatif. de cet oubli, mais il fait 
enfin 3 programmes éducatifs n'existait pas pour AMSTRAD PIS cela, c ri également 
très bien oersés- Et le iout avant l’arrivée de un utilitaire parfait qui vous 
avec le label de qualité CPC RUNAWAY. 


unanimement reconnu. Voilà 
de quoi satisfaire la 
gourmandise de votre 
AMSTRAD. 


Bonne programmation à tous. 





2 2 permettra de fignoler vos jeux. 


LECTHEME 





La Rédaction CASE BRIQUE Ce programme éducatif SCRIBE 
Si vous aimez les jeux de ermet à l’enfant d'associer 1 Hood 

réflexion, Case Brique va vous ee mots à un thème. Réflexes Si la maîtr ns un gros 

séduire. L'ordinateur vous et réflexion seront nécessaires. traitement de texte vous 


rebute, pensez à Scribe ! Ce 
logiciel complet regorge de 
facilités qui vous simplifieront 
l’usage de votre imprimante. 


poussera dans vos derniers 

retranchements intellectuels. 
Rassurez-vous, il suffit de 

savoir compter jusqu’à trois. 


24 33 





Vous voulez connaître votre 


DOLLARS & SNAFF niveau en calcul, essayez donc MASQUE DE SAISIE 





























Un château, un monstre, des cet éducatif. || vous détaillera Cet utilitaire s’intégrera 
sous, tout pour faire un grand vos opérations. Il jugera votre parfaitement dans vos propres 
jeu. Vos réflexes seront mis à niveau, et vous pourrez réalisations pour faciliter 
rude épreuve. apprécier vos progrès. l'introduction de vos données. 
CPC Photogravure Noir et Blanc Vente au numéro 
Revue des utilisateurs SORACOM Rassort NMPP 
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: bats abonnements 
Télex : SORMHZ 741 042 F Catherine FAUREZ : 
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CCP RENNES 794.17 V Distribution NMPP pendante d'AMSTRAD (GB) et d'AMSTRAD 
Directeur de publication : Dépôt légal à parution ja Re 
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RUNAWAY 


Régis LE PIPEC 


Aussi, vous disposez de cinq bombes 
pour anéantir les affreux ennemis qui 
feront tout pour contrecarrer vos projets. 
Les trois vies vous seront nécessaires 
pour atteindre votre fusée qui apparaîtra 
en bas de l'écran, toutes les pyramides 
étant prises. 

Si le jeu se bloque, par exemple, vous 
tombez dans un trou, appuyez sur ‘’S"” 
(comme Suicide !}, vous perdrez alors 
automatiquement une vie ! 

Ce programme, écrit entièrement en 
Basic, vous propose quatre options au 


JOUER 


Vous déplacez le bonhomme jaune, en 
bas de l'écran, à l’aide du joystick. Si 
vous appuyez sur ‘’FIRE’", une bombe 
apparaîtra dans le sens contraire de votre 
déplacement (derrière vous, quoi). Le 
score : 1 pyramide = 20 points, 1 enne- 
mi = 60 points. 
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CREER 


C'est la partie la plus intéressante du pro- 
gramme. En appuyant sur le ‘’2’’, un 
autre menu apparaît : 

1) Création du tableau, 

2) Modification du tableau, 

3) Sauvegarde du tableau, 

4) Chargement du tableau, 

5) Jouer avec le tableau, 

6) Fin. 


1) Création du tableau 


Vous dirigez le curseur à l'aide du joystick. 
Pour faire afficher un caractère, vous 
appuyez sur ‘‘Fire'’. Vous aurez une 


palette de caractères, au choix 
M=Mur, H=Bonhomme (vous), N = 
Ennemi, P=Pyramide, B=Bombe, 


C=Echelle et F=un Blanc. Aussi 
‘’(E)ffacement'’ qui réinitialise l'écran de 
création et efface, et ‘(Retour au 
Menu’. Tapez la lettre correspondant au 
caractère, pour pouvoir l'afficher. 


2) Modification 

Permet de modifier le tableau créé en 
Le: lee 

3) Sauvegarde 


Permet de sauver sur cassette votre 
tableau et de le réutiliser ultérieurement 
en ‘‘4”. 







nfatigable  cou- 
reur, vous devez 
récupérer toutes 
les pyramides d'énergie 
réparties dans les cinq 
tableaux et faire re- 
partir votre vaisseau 
spatial tombé en panne 
sèche. 


4) Chargement 


Permet de charger un tableau. 


5) Jouer 


Permet de jouer avec le tableau fait en 
"1", où chargé en ‘‘4"'. 


6) Fin 


Retour au menu de présentation. 


Le programme sauvera un fichier de 3 
blocks pour chaque tableau, il est donc 
conseillé de les sauver les uns après les 
autres pour mieux les réutiliser. 

De plus, vous pouvez très bien modifier 
un tableau que vous venez de charger. 


DEMO 


Ce mode permet de visionner tous les 
tableaux, c'est-à-dire les cinq du jeu. 
Pour arrêter, faites ‘’ESC’”, puis ‘’RUN'" 
(un ‘’on break gosub”’ ayant été prévu 
au début, mais s'avéra dangereux, j'ai 
perdu une fois tout mon programme à 
cause de lui !). 


FIN 


Permet de quitter le programme. L'ordi- 
nateur vous donnera la mémoire utilisée, 
et celle qui reste. Faites ‘‘Clear'’ et 


Ceux 








“PRINT FRE (‘")"" pour connaître le 
reste de mémoire réelle (les variables 
n'étant plus prises en compte). 


ADAPTATION 


Si vous ne possédez pas de joystick, 
remplacez les chiffres des INKEY(?) des 
lignes 150 à 200 et 4840 à 4880 par 
ceux des touches correspondant à votre 
choix (voir appendice du manuel). 


LISTE DES VARIABLES 


t variable variable (!) uti- 
lisée pour des boucles 


car$ ligne de data lue pour 
mettre en place un 
tableau 

chr numéro du caractère 
ASCII 

sp$ met en place un SPRITE 

spoff$ enlève le sprite 

sc score 

vie vies 

bomb bombes 

niv numéro du tableau 

X,9 coordonnées du joueur 


LORRAINE 


20 '###4 RU N AU AY ##H#HH4 
30 *##H#HK4 HE 


40 ’####### chargeur HE 

SO? HAINE 

55 MODE O:INK O,1:INK 1,24:INK 14,2b:BOR 
DER 1! 

60 FOR t=-80 TO 500 STEP 10 

70 PLOT 350,250, t/80+2 

80 DRAW 30, t 

85 DRAW 650, t 

90 NEXT 

100 FOR t=-80 TO 500 STEP 10 

110 PLOT 350,250, t/80+2 

120 DRAW 650,t 

130 NEXT 

135 PRINT CHR$(22)+CHR$(1) 

140 PEN {:LOCATE 7,1:a$="LE PIPEC" 

150 FOR t=1 TO 9:PEN t+5:PRINT MID$(a$,t 
,1)::NEXT 

155 FOR t=1 TO 600:NEXT 

160 PEN 14:LOCATE 7,2:PRINT'presente:" 
170 FOR t=1 TO 1O00:NEXT 

180 PEN 1:LOCATE 5,4:PRINT'R U N À K À Y 


190 LOCATE 5,25:PRINT" CHARGEMENT... ? 
195 RUN "RUNAWAY1" 
200 ‘Tapez & sauvez le progranme suivant 


210 ? a la suite celui-la. 


++. 


1 POKE &BBDI,0:POKE &RBD2,24 

2 KEY !."mode 1:ink O,1:pen 1:border 1:p 
aper O:ink 1,24"+CHR$(13) 

LO HAMMAM 

20 ? H##4HHEE RU N AN A Y ####### 

30 * ###### Regis LE PIPEC ###4#4 

4D ? #H###4 Mai 1986 HHHHEX 

50 ? F#####4 AMSTRAD(S) ##4###4## 





obs{?,?) 


hit(?,2) 


test de l'écran, déter- 
mine le caractère ren- 
contré (O0 rien, 1 un 
mur, 2 une échelle, 3 
une pyramide et 4 une 
bombe) 

même chose que 
‘’obs'’, utilisé par l'édi- 
teur de tableaux 


p{?) caractère à afficher 


pour le joueur 

numéro de caractère à 
afficher (1 à gauche, 2 
à droite, 3 monter ou 
descendre l'échelle) 


car$(?) caractère affiché pen- 
dant la création du 
tableau, le passage du 
joueur ou celui des 
ennemis (même 
système que ‘‘obs'') 

sti(?) détermine la couleur du 
caractère affiché par 
‘“‘’car$(?)'" (ne pas con- 
fondre ‘'car$'' et 
car$(?) !) 

XX,YY coordonnées du 


‘rideau’ rouge 


DO? HARAHMNNNEMNMNNEEREE 


70 DIM obs(40,25),hit (40,25) 

80 ENV 1,5,4,1,1,1B55 
90 GOSUB 3670:’REDEF, CARATERES 
100 GOSUB 4040: PRESENTATION 
110 ? 
120 ? 
190 ? 
140 GOSUR 1440 

150 IF (INKEY(74)=0 AND x>1 AND obs(x-1, 
y)C>1) THEN GOSUB 270 

160 IF (INKEY(75)=0 AND x<40 AND obs(x+1 
5U)€1) THEN GOSUB 340:GO0T0 190 

170 1F (INKEY(72)=0 AND obs{x,y)=2 AND 0 
bs(x,y-1)<>1) THEN GOSUB 410 

180 IF INKEY(73)=0 AND (obs(x.y+1)=2 OR 
obs(x,y+1)C>1) THEN GOSUB 470 

190 IF (INKEY(76)=0 AND bomb<{>0 AND obs{ 
x+g,y)=0) THEN GOSUB 870 

200 IF INKEY(60)=0 THEN 670 

210 IF obs(x,u)=4 THEN 820 

220 IF obs(x,y)=0 AND obs(x,u+1)<>1 AND 
obs(x,u+1)<>2 THEN GOSUR 540 

230 IF obs(x,y)=3 THEN GOSUB 750 

240 IF obs(x,;u)=7 THEN 1300 

250 IF plo)=glo) THEN plo)=d(o) ELSE plo 
)=g(o) 

260 GOTO 140 

270 ? 
280 L 
290 ? 
300 *x=x-1:0=1:PEN 1:PRINT sp$:LOCATE x,u 
PRINT CHR$(plo));:q=1 

310 a=obs(x+i,u):PEN stita) 

320 PRINT spoff$:LOCATE x+1,y:PRINT car$ 
(a); 

330 RETURN 

340 ? 
350 ? 
360 


ROUTINE PRINCIPALE 


BONHOMME À GAUCHE 


BONHOMME À DROITE 


départ 


détermine si oui ou non 
(0/1) le jeu est en posi- 
tion  ‘‘éditeur de 
tableaux" 

nombre de pyramides 


p 
w1,w2,w3,w4 emplacement de la bulle 


du suicide (window) 


xF abscisse de la fusée 

X(2),Y(2?) coordonnées de l’en- 
nemi 

el,e2 sens de déplacement de 
l'ennemi 

go indique si l'ennemi. se 
déplace ou non (0/1) 

nt note de musique 

dr durée 

hrun$ haut du titre ‘’RUN- 
AWAY" 

brun$ bas du titre ‘’RUN- 
AWAY"' 

hom indique si le bonhomme 
a été placé dans le 
tableau créé par l’utili- 
sateur 

nb nombre  d'ennemis 
créés 

jeu indique s'il faut initiali- 


ser le jeu ou non (0(1) 


370 x=xti:0=2:PEN 1:PRINT sp$:LOCATE x,u 
PRINT CHR$(plo));:q=-1 

380 a=obs(x-1,y):PEN sti(a) 

390 PRINT spoff$:LOCATE x-1,y:PRINT car$ 
(a): 

400 RETURN 

410 ? 
420 ? 
430 ? 
440 y=y-1:0=3:PEN 1:LOCATE x,u:PRINT sp$ 
;CHR$(plo)) 

450 PEN J:LOCATE x,y+{:PRINT spoff$;CHR$ 
(205) 

460 RETURN 

470 ? 
480 ? 
490 
500 y=ut1:0=3:PEN 1:LOCATE* x,y:PRINT sp$ 
:CHR$(plo)) 

510 a=obs(x,y-1):PEN stila) 

520 LOCATE x,y-L:PRINT spoff$;car$(a); 
530 RETURN 

540 ? 
550 ? 
560 ? 
570 PEN 1:WHILE obs(x,y+1)>1 AND obs(x, 
y+1)02 

580 y=utl:LOCATE x,y:PRINT CHR$(203) 
590 LOCATE x,y-1:PRINT" 

600 IF obs(x,y)=3 THEN GOSUR 770 

610 IF obs{x,u)=4 THEN 820 

620 IF obs(x,u)=7 THEN 1330 

630 SOUND 1,y,2 

640 CALL &BDI9:1F obs(x,y)=3 THEN GOSUB 
750 

650 HEND:LOCATE x,u:PRINT CHR$(202) 

660 RETURN 

670 ? 
680 ? 
690 ? 


BONHOMME EN HAUT 


BONHOMME EN BAS 


BONHOMME EN CHUTE 


BONHOMME SE SUICIDE ! 





700 1F x<24 THEN wi=2:w2=14:w3=1 :w4=207 
ELSE wi=-2:w2=-14: 3-1 :u4=208 

710 WINDON #2,xtul,xtu2,y-1,u:PAPER 42,1 
:CLS #2 

720 PEN 1:LOCATE x+w3,u:PRINT CHR$(uw4):P 
EN #2,3:PRINT#2, "ADIEU à MONDE  CRUEE.. 


730 SOUND 1,20,6,7,0,0, 12LOCATE x,y:PRIN 
T CHR$(203):FOR t=1 TO SOO:NEXT:60T0 102 
D 

740 ? 

750 ? BONHOMME PREND 

760 

770 p=p-l:sc=5c+20:0bs(x,y)=0 

780 SOUND 1, 1000, 4,7 

790 LOCATE #1,1,2:PRINT#1,USING'#####" ;5 
c 

800 1F p=0 AND pa={ THEN GOSUB 1230 

810 RETURN 

820 ? 

830 ? BONHOMME EXPLOSE 

840 ” : 

850 PEN 1:LOCATE x,y:PRINT CHR$(238) :FOR 
t=1 TO 100:BORDER t\4:SOUND 1,t,1,7,0,0 
 1:S0UND 2, t42,1,5:S0UND 3,t#10, 1, 3:NEXT 


860 GOTO 1020 
870 ? 
880 ? BONHOMME POSE UNE BOMBE 
890 ? 
900 bomb=bomb-1:PEN 1:LOCATE x+g,uy:PRINT 
CHR$(204) :obs(x+g,u)=4:SOUND 1,1000,2,7 
910 LOCATE #1,32,2:PRINT #1," "ssLOC 
ATE #1,32,2:FOR t=1 TO bomb:PRINT #1,CHR 
$(204) ;:NEXT 
920 RETURN 
930 ? 
940 ? LE TABLEAU DE MARQUE 
950 
960 WINDOW #1,3,38,1,2:PAPER #1,1:CL5 #1 
970 PEN #1,2:PRINT#1,"SCORE VIE 
NIVEAU BOMBE"; 
980 PEN #1,3:LOCATE #1,1,2:PRINT#1 , USING 
“AHANN" ;SC:LOCATE #1,8,2:FOR t=1 TO vie: 
PRINT #1,CHR$(200) ;:NEXT:PAPER J:PEN 1:L 
OCATE 16,1:PRINT hrun$:LOCATE 16,2:PRINT 
brun$:PAPER 0 
990 LOCATE #1,26,2:PRINT#1,USING"##" niv 
3LOCATE #1,92,2:FOR t=1 TO bomb:PRINT #1 
+ CHR$ (204) 3 :NEXT 
1000 obs{t,s)=a 
1010 RETURN 
1020 ? 
1030 ? BONHOMME PERD UNE VIE 
1040 ? 
1050 vie=vie-1:LOCATE #1,8,2:PRINT #1," 
":LOCATE #1,8,2:FOR t=1 TO vie:PRINT # 
1, CHR$ (200) ; :NEXT 
1060 IF vie(i THEN 2300 
1070 GOSUB 1170:1IF depart=1 THEN GOSUB 5 
460 ELSE GOSUB 1860 
1080 6OTO 110 
1090 ? . 
1100 * BONHOMME BOUFFE PAR L'ENNEMI 
1110 ? 
1120 FOR t=y TO 4 STEP-1 
1130 y=y-1:PEN 1:LOCATE x,y:PRINT sp$;CH 
R$(209) 
1140 a=obs(x,y+1):PEN sti(a) 
1150 LOCATE x,y+1:PRINT spoff$;car$(a):S 


OUND 1,y,4,7,0,0,1:SOUND 2,y#10,4,5:SOUN 
D 3,y#100,4,3:CALL &BDI9 

1160 NEXT:G0TO 1020 

1170 

1180 RIDEAU ! 

1190 ? 

1200 BORDER 6:FOR yy=367 TO -1 STEP-1:PL 
OT -4,uy.3:DRAW 640,yy:NEXT 

1210 FOR yy=1 TO 367:PLOT -4,yy,0:DRAN 6 
40, yu:NEXT:BORDER 2 

1220 RETURN 

1230 ? 

1240 ? LA FUSEE : 

1250 ? 

1260 p=-1:xf=INT (RND#39)+1 

1270 IF obs{xf,24)=0 THEN obs(xf,24)=7 E 
LSE GOTO 1260 

1280 PEN 1:LOCATE xf,24:PRINT CHR$(239) 
1290 RETURN 

1300 

1310 * BONHOMME PART EN FUSEE 

1320 ? 

1330 p=1:obs(x.y)=0 

1340 FOR t=y TO 4 STEP-1 

1350 y=y-1:PEN 1:LOCATE x,y:PRINT sp$;CH 
R$(239) 

1360 a=obs(x,y+1):PEN sti(a) 

1370 LOCATE x,uy+1:PRINT spoff$;car$la):S 
OUND 1,y,4,7,0,0, 1:SOUND 2,y#10,4,7,0,0, 
1:SOUND 4,y#50,4,7,0,0,1 

1380 NEXT 

19390 RESTORE 2190:G0SUB 2130:1F bomb<5 T 
HEN bomb=bomb+1 

1400 IF depart=1 THEN niv=niv+{: jeu=i :60 
TO 4440 

1410 GOSUB 1170 

1420 GOSUB 1810 

1430 6G0TO 110 

1440 ? 

1450 ? LES ENNEMIS 

1460 ” 

1470 m=mti:IF m>3 THEN m=1 

1480 e1=0:e2=0:g0=0 

1490 IF Ux(m)<x AND obs(x(m)+1,y(m))<>1) 
THEN x(m)=x(m)+1:e1=-1 :e2=0:go=1 :po=201 
:G0TO 1530 

1500 1F (x(m)>x AND obs{x(m)-1,u(m))<>1) 
THEN x(m)=x(m)-1:e1=1:e2=0:go=1 :po=200: 
60T0 1530 

1510 IF (ylm)<y AND obs(x(m),ylm)+1)€1) 
THEN ylm)=y(m)+1:e1=0:e2=-1 :g0=1 : po=202 
1520 1F (ylm)>y AND obs(x(m),y(m)-1)=2 0 
R (obs(x(m),y(m)-1)=0 AND obs(x(m),y(m)) 
=2)) THEN yim)=y(m)-1:e1=0:e2=1 :g0=1:po= 
202 

1530 PEN J:LOCATE x(m),y{m):PRINT sp$;CH 
R$ (po) 

1540 a=obs(x(m)+e1,y(m)+e2):PEN stila) 
1550 IF go=i THEN LOCATE x(m)+ei,y(m)+e2 
PRINT spoff$;car$(a); 

1560 IF obs(xim),ylm))=0 AND obs(x(n),ul 
m)+1)=0 THEN GOSUR 1600 

1570 IF x=x(m) AND y=y(m) THEN 1090 
1580 IF obs(x(m),y(m))=4 THEN GOSUB 1730 


1590 RETURN 
1600 ? 

1610 * ‘ ENNEMI EN CHUTE 
1620 

1630 LOCATE x{n),y(m):PRINT" * 


1640 WHILE obs(x{m),y(m)+1)<>1 AND obs(x 
(a),y(n)+1)02 

1650 yla)=y(m)+! 

1660 PEN J:LOCATE x(m),y(m):PRINT CHR$(2 
ps 

1670 a=obs(x(m),y(m)-1):PEN stila) 

1680 LOCATE x(m),ylm)-1:PRINT car$(a) 
1690 SOUND 2,xm,2,15 

1700 IF obs(x(n),ylm))=4 THEN LOCATE x(n 
),y(m):PRINT" *:60T0 1730 

1710 WEND 

1720 RETURN 

1730 ? 

1740 ? ENNEMI EXPLOSE 

1750 ? 

1760 PEN 1:LOCATE x(m),y(m):PRINT CHR$(2 
J8):FOR t=1 TO 25:BORDER t\4:SOUND 1,t,1 
5 730,0, 1:SOUND 2,t#2,1,5:SOUND 4,t#10,1, 
J:NEXT 

1770 BORDER 2:LOCATE x(m),y(m):PRINT" * 
1780 obs(x(a) ,y(m))=0:x(m)=INT (RND#37) +2 
sy(m)=3 

1790 sc=sc+b0:60SUB 790 

1800 RETURN 

1810 * . 

1820 ? MISE EN PLACE DU TABLEAU 

1830 ? 

1840 niv=niv+i:pa={:PAPER O:1F niv>5 THE 
N niv=! 

1850 GOSUB 990 

1860 ON niv G0SUB 2370,2630, 2890, 3150, 34 
10 

1870 nb=D:p=0:FOR 5=3 TO 24 

1880 READ a$:FOR t=1 TO 40 

1890 b$=MID$(a$,t,1):a=VAL(b$) 

1900 obs(t,s)=a:IF a<>3 AND a()5 AND at) 
6 THEN 1940 

1910 IF a=3 THEN p=p+1 

1920 IF a=5 THEN x=tiy=s:obs(t,s)=0 

1930 IF a=6 THEN PEN J:nb=nb+1:x(nb)=t:y 
{nb)=s:obs(t,s5)=0 

1940 PEN stila):LOCATE t,5:PRINT car$(a) 
;2°1F a€5 THEN obs(t,5)=a 

1950 NEXT:NEXT 


- 1960 PEN 2:FOR t=1 TO 40:LOCATE t,25:PRI 


NT CHR$(143); sobs(t,25)=1:NEXT 

1970 RETURN 

1980 ? 

1990 *  INITIALISATION 

2000 

2010 MODE 1:1INK 0,2:1NK 1,24: INK 2,12:IN 
K 3,6:BORDER 2 C 

2015 IF jeu=1 THEN RETURN 

2020 sc=0:vie=3:bomb=5: depart=0 

2030 sp$=CHR$(22)+CHR$ (1) :spof f$=CHR$(22 
)+CHR$(0) 

2040 RESTORE 2060 

2050 FOR t=0 TO 6:READ c:car$(t)=CHR$(c) 
:NEXT 

2060 DATA 32,143,205, 206, 204, 200, 201 
2070 sti(1)=2:sti(2)=3:stit3)=t:sti(4)=1 
isti(5)=1isti(6)=3 

2080 p{1)=200:g(1)=200: d(1)=227 

2090 p{2)=201 :g(2)=201 :d(2)=228 

2100 p(3)=202:g(3)=202:d(3)=229 

2110 RETURN 

2120 ? 

2130 *  INTERLUDES MUSICAUX 

2140 

2150 READ nt,dr:WHILE nt©-1 





2160 SOUND 1,nt,dr,7,1,0:SOUND 2,nt#5, dr 
5350, 1:SOUND 4,nt#6,dr,3,0,0,1 

2170 G0TO 2150:WEND 

2180 RETURN 

2190 ? 

2200 ?’ DATA Oh Suzanna-FOSTER 

2210 ’(Pardon pour les melomanes!) 

2220 ? Ë 

2230 DATA 284,20,253,20,225,20,0,2, 190,3 
0,0, 2,190, 30,0, 2,169, 25,0,2,190,25,0,2,2 
25,25,0,2,284,25,0,2,253,25,0, 2,225,30,0 
12,253, 25,0,2,284,25,0,2,253, 40,0,2 
2240 DATA 284,20,253,20,225,20,0,2, 190,2 
5,0,2,190,25,0,2,169,25,0,2,190,25,0,2,2 
25,25,0,2,284,25,0,2,253,25,0, 2, 225, 25,0 
12225,25,0,2,253,25,0,2,253,25,0, 2,284, 
45,-1 

2250 ? 

2260 * DATA Marche Funebre 

2270 ? 

2280 DATA 500, 100,0, 2,500, 75,0, 2,500, 25, 
0,2, 500, 100,0,2,425,75,0,2,450, 25,0, 2,45 
0,75,0, 2,500, 25,0, 2,500, 75,0, 2,525,25,0, 
2 

2290 DATA 500,75,-1,-1 

2300 ? 

2310 ? GAME OVER 

2320 

2330 BORDER 2:WINDOW #2,12,29,10,12:PAPE 
-R #2,1:CLS #2 

2340 PEN #2,3:PRINT#2:a$=" GAME OV 
ER ":FOR t=1 TO 18:PRINT 42,MID$(a$,t,1 
)3:SOUND 1,t#100,5,7:FO0R u=1 TO JO:NEXT: 
NEXT 

2350 RESTORE 2250:60SUB 2120 

2360 60TO 4040 

2370 ? 

2380 ? TABLEAU 1 

2390 

2400 RESTORE 2410:RETURN 

2410 DATA 000600000300000000000000000000 
0000000000 

2420 DATA 001111111111111112111111120000 
0000000000 

2430 DATA 000000000000000002000000020000 
0000000000 

2440 DATA 000000000000000002000300020000 
0000000000 

2450 DATA 0000000000000000021 1 1 1 1 1111100 
0000000000 

2460 DATA 000000060000000002000000000000 
0000000000 

2470 DATA 00000001 11111111 12000000000006 
0000000000 

2480 DATA 030000000000000002000000000 1 1 
1000000000 

2490 DATA 000000000000000002000000000000 
0300000000 

2500 DATA 000000000000000302000000000000 
0000000000 

2510 DATA 000000000000! 1 1 1 121 1111 1200000 
1111000000 

2520 DATA 000000000000000002000000200000 
0000000000 

2530 DATA 000000000000000002000000200000 
0000030000 

2540 DATA 000000000000000002000000200000 
0000111100 

2550 DATA 000000000030000002000000200000 
0000000000 


2560 DATA 001111112111121111112000200000 
0000000000 

2570 DATA 000000002000020000002000230000 
0000000000 

2580 DATA 003000002000020300002000! 1 1 1 12 
1111111200 

2590 DATA 011121111100021 1 10111210000002 
0000000200 

2600 DATA 00002000000002000000020000000 2 
00000001 10 

2610 DATA 000020000000020000000200000002 
0000000000 

2620 DATA 000020000000020000000200000002 
0050000000 

2630 ’ 

2640 ? TABLEAU 2 

2650 ? 

2660 RESTÔRE 2670:RETURN 

2670 DATA 030000600000000003000 30000000 
0006000030 

2680 DATA 011111111111120001121100021111 
1111111110 

2690 DATA 000000000000020000020000020000 
0000000000 

2700 DATA 000000000000020000020000020000 
0000000000 

2710 DATA 000000000000020000020000020000 
0000000000 

2720 DATA 000000000000020000020000020000 
0000000000 

2730 DATA 000000000000! 1 21 1 1111121 10000 
0000000000 

2740 DATA 000000000000000200000002000000 
0000000000 

2750 DATA 000000000000000200000002000000 
0000000000 

2760 DATA 000000000000300200000002003000 
0000000000 

2770 DATA 000000000002111111121111111200 
0000000000 

2780 DATA 000000000002000000020000000200 
0000000000 

2790 DATA 000000000002000030020030000200 
0000000000 

2800 DATA 000000000211111111121111111112 
0000000000 

2810 DATA 000000002000000000020000000000 
2000000000 

2820 DATA 000000020000000000020000000000 
0200000000 

2830 DATA 000000200300000000020000000003 
0020000000 

2840 DATA 0000021 1 1 10000000002000000000 1 
1112000000 

2850 DATA 000020300000000000020000000000 
0030200000 

2860 DATA 03021 1 00000000000020000000000 
0011120300 

2870 DATA 011000000005000000020000000000 
000000! 1 10 

2880 DATA 010001010101000060020000000101 
1010000010 
2890 , 


2900 TABLEAU 3 


2920 RESTORE 2930:RETURN 

2930 DATA 000000000000000000000000000000 
0000000000 

2940 DATA 000000000000000000000000000000 
0000000000 


2950 DATA 000000000000000000000000000000 
0000000000 

2960 DATA 000323230000000000000000000000. 
0032323000 ‘ 

2970 DATA 00010101 2000000000000000000000 
0210101000 

2980 DATA 0001111 12000000000000000000000 
0211111000 

2990 DATA 000111 112000000000000000000000 
0211111000 

3000 DATA 0001101 12000000000000000000000 
0211011000 
3010 DATA 000111 1 12000000000000000000000 
0211111000 

3020 DATA 0001111 12000000000000000000000 
0211111000 

3030 DATA 0001111 12000000000000000000000 
0211111000 

3040 DATA 000111112200023232323232323200 
0211111000 

3050 DATA 000111111012101010101010101012 
1211111000 

3060 DATA 004111111112111111111111111112 
1111111400 

3070 DATA 000030060002111111111111111112 
0060030000 

3080 DATA 002111111111111111111111111111 
1111111200 

3090 DATA 002120030000011111111111111100 
0030021200 

3100 DATA 002121111111011111111111111101 
1111121200 

3110 DATA 002121111111011111111111111101 
1111121200 

3120 DATA 002120000000030000060000000300 
0000021200 

3130 DATA 002111111111111111112111111111 
1111111200 

3140 DATA 002000050000000000002000000000 
0000000240 

3150 

3160 ? TABLEAU 4 

3170 

3180 RESTORE J190:RETURN 

3190 DATA 000000000030000600000060003000 
0000000000 

3200 DATA 000000211111111111111101111111 
1200000000 

3210 DATA 000001211111111111111101111111 
1210000000 

3220 DATA 000001 220000000000000000000000 
2210000000 

3230 DATA 0000010021 1 1000000000000000! 1 
2000000000 

3240 DATA 000001002000! 000000000000 ! 000 
2001000000 

3250 DATA 00000100020001 1001600000! 10002 
0001000000 

3260 DATA 000031000021 0000001 00000000 ! 20 
0001000000 

3270 DATA 000111000021 130000 10000003! 120 
0001 110000 

3280 DATA 000100000021 1 100001000000! 1 120 
0000010000 

3290 DATA 000121 300020000000 1 000000000720 
0031210000 

3300 DATA 000120100020000000 1 00000000020 
0010210000 

3310 DATA 000120000020000000 1 00000000020 
0000210000 \ 





-! 


3320 DATA 0001 1 1000020000000 100000000020 

0001110000 

3330 DATA 000001000020000020 100020000020 

0001000000 

3340 DATA 000001000020000020! 33320000020 

0001000000 

3350 DATA 0000010000200000001 1 1 00000020 

0001000000 

3360 DATA 000001 000020003000000000300020 

0001000000 

3370 DATA 000000100021111111111111111120 

0010000000 

3380 DATA 000000010020222222222222222020 

0100000000 

3390 DATA 00000000 1020022222222222220020 

1000000000 

3400 DATA 000030000425000022222220000024 

0000300000 

3410 ? 

3420 TABLEAU 5 

3430 

3440 RESTORE J450:RETURN 

3450 DATA 0000000030000000000 0000000000 

3000000000 

3460 DATA 021111211112111121111200300121 

1112111120 

3470 DATA 020000000000000000000000200000 

0000000020 

3480 DATA 020000000000000000000000220000 

0000000020 

3490 DATA 023000000021 1 1 112000000021 2200 

0000000020 

3500 DATA 020000000200000002000000200020 

0000000020 

3510 DATA 02000000200000000020000020 1 002 

2000000020 

3520 DATA 02000002000000000002000020000 

2000000020 

3530 DATA 020006200030000030020000200020 

3000000020 

3540 DATA 020002000000000000002002006200 

1000000020 

3550 DATA 020002000000000000002002002222 

0000000020 

3560 DATA 020002000000000000002020002000 

0000000020 

3570 DATA 020002000000222000000200002000 

0000000020 

3580 DATA 020002000022000200000200022200 

0000000020 

3590 DATA 020002000200000020000200000020 

0000000020 

3600 DATA 020000200022000007000200300020 

0003000020 

Jb10 DATA 020000022002003000200200000020 

0000000020 

3620 DATA 0200000022220000000! 1220000002 

2200000020 

3630 DATA 020000000000006000000002222222 

2200000020 

3640 DATA 121111211112111121111211111111 

1112111120 

3650 DATA 020000200002000020000200000000 
2000020 

3660 DATA 0200002430020000200002005 00000 

0002030024 

d670 

3680 

3690 ?  REDEFINITION DES CARACTERES 

3700 


3710 SYMBOL AFTER 64 

3720 SYXBOL 64,8X1111110, &X10000001, 8X11 
1100,8X1100110,8X1100110, &X1100110,8X111 
100 

3730 SYMBOL 200, 8X 100110, &X100110,8X1110 
0,8X11011111,8X10111001,8X10100000, &X101 
00,8X1010 

3740 SYMBOL 201,8X1100100, &X1100100, &X11 
1000,8X11111011,8X10011101,8X101,8X10100 
0, &X1010000 ae 

3750 SYMBOL 202, 8X11001,8X11010, 8X1100, & 
X111100, 81001110, &X10001, &X100001 , &X100 
0! 

3760 SYMBOL 203,8X1001, &X10001, &X10010, & 
X11111100,8X11111100, &X100111, &X1 1000000 
3770 SYMBOL 204,8X0, 8X111,&X 1000, &X11000 
,8X111100,8X111100, &X11000 

3780 SYMBOL 205,8X1000010,8X1111110, 8X11 
11110,8X1000010, 8&X1000010,8X1111110,EX11 
11110, 8X1000010 

3790 SYMBOL 206,8X11000, &X11000, &X111100 
,8X111100,8X1111110,8X1111110,8X 11111111 
3800 SYMBOL 207,8X0,&X1,8X1111,8X11111,8 
x1111,8X1 

3810 SYMBOL 208, &X0, &X10000000, &X 1 1 1 1000 
0,8X11111000, EX 11110000, &X 10000000 

3820 SYMBOL 209,EX11100000, 8X111,8X11100 
111,8X11100111,8X111101,8X1111100,8X1111 
10,8X1111111 

3830 SYMBOL 210,8X11111111,8X 10000001, EX 
10000001, &X10000001 , &X 10000001 , &X 1000000 
1,8X10000001,8X11111111 

3840 SYMBOL 211,8X0,8X111111,8X111111,8X 
110000, &X1 10000, 8X111111,8X111111,8X1100 
il 

3850 SYMBOL 212, &XO, &X1 1000000, &X 1 100000 
0, &X11000000, &X 1 1000000, &X 1 1000000, &X1 10 
00000, &X11001 

3860 SYMBOL 213,40, &XO, EXO, &XO, 8X0, EXD, 
&X0, 8X10011100 

3870 SYMBOL 214,840, EXO, &XD, EXD, &XO, EXD, 
&X0,8X11001111 

3880 SYMBOL 215,840, EXO, &XD, EXD, &X0, EXD, 
&X0, 8X11001100 

3890 SYMBOL 216, EXD, &XO, EXD, &XO, &XO, &XO, 
8x0, 8X11001 

3900 SYMBOL 217,6X0, &XD, EXD, EXD, &XD, &X1, 
&x1,8X11111001 

3910 SYMBOL 218,80, EXO, &XD, EXD, EXD, &X10 
001100, &X 10001100, &X10001 100 

3920 SYMBOL 219,8X110011,8X110011,8X1100 
11,8X110011,8X110000, &X110000, &X111111,8 
x111111 

3930 SYMBOL 220,EX11001,8X11001,8X11001, 
&x11111,8X11111,8X0,8X11111111,8X1111111 
1 

3940 SYMBOL 221,8X10011110,8X10011111,8X 
10011011, 8X10011001,8X10011000, &XD, &X111 
11111,8X11111111 

3950 SYMBOL 222,811001111,8X1 1001100, 8X 
11001100, 8X11001111,8X11001100, &X0,&X111 
11141,8X11111111 

3960 SYMBOL 223, &X11001100, 8X11001 101, &X 
11001101, 8x 11000110, 8X1 1000110, &X0,8X111 
11111,8X11111111 

3970 SYMBOL 224,8X11001,8X1001 1001, &X100 
11001, 8X1100001, 8X 1100001, &XD,8X11111111 
&Xi1111111 

3980 SYMBOL 225,8X10011001, &X10011001, EX 
11111001, &X1001 1000, 8X1001 1000, &XD, &X111 


11111,8X11111111. 

3990 SYMBOL 226,8X10001 100, &X11111100, 8X 
11111100,8X1100,8X1100, &X1100,8X11111100 
8X11111100 

4000 SYMBOL 227,84X1100000,&X1100110,8X11 
1000,8X10111000,8X1011101,8X10011,8X1100 
0,8X1000 

4010 SYMBOL 228,4X110,&X1 1001 100, &X 11100 
,8X11101,8X10111010, &X11001000, &X1 1000, & 
X10000 

4020 SYMBOL 229,&X1001 1000, &X1011000, &X1 
10000, &X111100,8X1110010, &X 10001000, &X10 

000100, &X 10001000 

4030 RETURN 

4040 ? 

4050 ? PRESENTATION 

4060 L 

4070 MODE O:1NK O,O:1NK 1,24:INK 2,12:IN 

K 3,6:INK 4,0:INK 5,20: INK 6,6:INK 7,B:1 

NK 8,9:BORDER 12 

4080 x=0:niv=0: jeu=0:60SUB 2020:7 INITIAL 
ISATION 

4090 depart=0: deno=0 

4100 hrun$=CHR$(211)+CHR$(212)+CHR$(213) 

+CHR$(214)+CHR$(215)+CHR$(216)+CHR$(217) 

+CHR$(218) 

4110 brun$=CHR$(219)+CHR$(220)+CHR$(221) 

+CHR$(222)+CHR$(223)+CHR$ (224) +CHR$ (225) 
+CHR$ (226) . 

4120 WINDOW #1,1,20,3,7:PAPER #1,2:CL5 4 

1: 

4130 WINDOW #2,1,20,8,17:PAPER #2,7:CLS# 

2 

4140 WINDOW #3,1,20,1B,25:PAPER #3,3:CLS 
#3 

4150 PEN 1:PAPER 4:LOCATE 7,4:PRINT hrun 

$:LOCATE 7,5:PRINT brun$ 

4160 PAPER 2:pe=4:FOR t=6 TO 15:PEN pe:L 

OCATE t,3:PRINT"#":LOCATE t,6:PRINT"#":p 

e=pe+i:1F pe>b THEN pe=4 

4170 NEXT 

4180 PEN S:LOCATE 6,4:PRINT'#":PEN 6:LOC 

ATE 6,5:PRINT"+#+" 

4190 PEN 5:LOCATE 15,4:PRINT"#":PEN 6:LO 

CATE 15,5:PRINT'#" 

4200 PRINT sp$:PEN 3:FOR t=3 TO 1B:LOCAT : 

E 5,t:PRINT CHR$(205):LOCATE 16,t:PRINT 

CHR$(205):NEXT:PRINT spoff$ 

4210 PAPER 8:PEN 1:LOCATE 6, 10:PRINT"1<- 
JOUER * 

4220 LOCATE 6,12:PRINT'2<- CREER * 

4230 LOCATE 6,14:PRINT"3<- DEMO 

4240 LOCATE 6,16:PRINT"4<- FIN ” 

4250 a$=SPACES(15)+"### RUNANAY ### Jeu 
concu et realise par REGIS LE PIPEC ### 
Mai-1986 ### BONNE CHANCE!!! ###"+5PACE 

$(15) 

4260 encre(1)=0:encre(2)=20:encre(3)=6 

4270 en=1:v=1:dep=1 

4280 FOR t=1 TO 122:b$=INKEY$:WHILE b$C> 

1" AND b$C°2" AND b$<>"3" AND b$("4" 

4290 INK 4,encrelen):1K 5,encrelent{):1 

NK 6,encrelent2) 

4300 en=en+i:1F en>3 THEN en=1 

4310 PAPER O:PEN 1:LOCATE 3,22:PRINT MID 

$la$,t,15); 

4320 IF dep=1 THEN q=2 ELSE q=1 
4330 v=v+dep:LOCATE v,2:PRINT CHR$(plq)) 
LOCATE v-dep,2:PRINT" * 

4340 1F piq)=g(q) THEN plaq)=d(q) ELSE pt 





q)=g{q) 

4350 1F v>19 THEN dep=-dep 

4360 IF v<2 THEN dep=-dep 

4370 CALL &BDI9:NEXT:60T0 4280 

4380 WEND 

4390 1F b$="1" THEN G0SUB 1980:60SUB 960 
:G0SUB 1810:60T0 110 

4400 IF b$="2" THEN 4440 

4410 IF b$="3" THEN 5560 

4420 IF b$="4" THEN 5700 

4430 G0TO 4430 

4440 ? ; 

4450 * MENU DE CREATION 

4460 | 

4470 MODE 1:INK O,0:1NK 1,24:INK 2,20:IN 
K 3,6:BORDER O:depart=1 

4480 PEN 1:PAPER O:PRINT:PRINT:PRINT:PRI 
NT:PRINT" 1<- CREATION DE TABLEA 
vu’ 

4490 PRINT:PRINT" 
ON DE TABLEAU'" 
4500 PRINT:PRINT" 
DU TABLEAU 
4510 PRINT:PRINT" 
DU TABLEAU' 

4520 PRINT:PRINT" 
LE TABLEAU' 

4530 PRINT:PRINT" 6<- FIN° 

4540 PRINT :PRINT:PRINT" Faites 
votre choix." 

4550 r=VALCINKEYS):1F r€>1 AND r<>2 AND 
r<>3 AND r<>4 AND r€5 AND r€>6 THEN 455 
0 

4560 ON r GOSUB 4580,4960, 5070, 5230, 5390 
4040 

4570 GOTO 4440 

4580 

4590 ? CREATION DE TABLEAU 

4600 

4610 *ATTENTION: ne pas confondre: 

4620 * ‘’F':effacement de caracteres 
4630 * ‘’E’:effacement de l’ecran 

4640 * Vous devez mettre 1 BONHOMME, 
4650 ? 3 ENNEMIS et autant de PYRAMIDES 
4660 ? que vous desirez !... 

4670. ? 

4680 MODE 1:1INK O,1:BORDER 1:ERASE hit:D 
IM hit(40,25) 

4690 PEN 1:FOR t=1 TO 40:LOCATE t,25:PRI 
NT CHR$(143);shit(t,25)=1:NEXT 

4700 PEN 2:LOCATE 3,1:PRINT CHR$(143);"= 
M ‘3:PEN 1:PRINT CHR$(200);"=H "3:PEN 
J:PRINT CHR$(201);:PRINT'EN "3;:PEN 1:PR 
INT CHR$(206);"=P “3;CHR$(204);:PEN 3:PR 
INT'=B ‘3:PEN 2:PRINT CHR$(205);"=C "; 
PEN 1:PRINT CHR$(210);"=F" 

4710 PEN 1:LOCATE 4,2:PRINT" (E)FFACEMENT 

(R)IETOUR AU MENU" 

4720 xe=20:yc=12:chr=92:c=1 

4730 a$=UPPERS$(INKEY$) 

4740 IF a$="M" THEN chr=143:c=1 

4750 IF a$="H° THEN chr=200:c=5 

4760 1F a$="N° AND plein=0 THEN chr=201: 
cb 

4770 IF a$="P" THEN chr=20b:c=3 

4780 IF a$=°C* THEN chr=205:c=2 

4790 IF a$="F" THEN chr=32:c=0 

4800 IF a$="B" THEN chr=204:c=4 

4810 IF a$="R* THEN 4440 

4820 IF a$="E" THEN GOSUB 4930 


2<- MODIFICATI 


3<- SAUVEGARDE 


4<- CHARGEMENT 


5<- JOUER AVEC 


4830 efx-0:efy=0 

4840 IF (INKEY(74)=0 AND xc>1) THEN xc=x 
c-liefx=1 

4850 IF (INKEY(75)=0 AND xc<40) THEN xc= 
xctlsefx=-1 

4860 IF (INKEY(72)=0 AND yc>3) THEN yc=y 
c-l'efy=l 

4870 IF (INKEY(73)=0 AND yc<24) THEN yc= 
ycti:efy=-1 

4880 IF (INKEY(76)=0 AND xc>=1 AND xc<=4 
O AND uc>=3 AND yc<=24) THEN SOUND 1,100 
52, 7:LOCATE xc,yc:PRINT CHR$(chr):hit(xe 
yc)=c:feu=] 

4890 LOCATE xc,yc:PRINT CHR$(143) 

4900 a=hit(xctefx,yctefy) 

4910 LOCATE xctefx,yctefy:PRINT car$(a); 


4920 6G0TO 4730 

4930 LOCATE 1,2:PRINT" 
AIMENT SUR (0) ? 4 
4940 a$=UPPERS(INKEYS):1F a$="" THEN 494 
0 

4950 IF a$="0" THEN ERASE hit:DIM hit (40 
525):CLS:G0TO 4690 ELSE GOTO 4700 

4960 ? 

4970 * MODIFICATION DU TABLEAU 

4980 ? 

4990 MODE 1:INK 0,1:BORDER 1:PEN 1! 

5000 PRINT" Veuillez patientez 


VOUS ETES VR 


5010 FOR u=3 TO 24:FOR t=1 TO 40 

5020 a=hit(t,u) 

5030 LOCATE t,u:PRINT car$(a); 

5040 NEXT:NEXT 

5050 FOR t=1 TO 40:PRINT CHR$(143);shit{ 
t,25)=1:NEXT 

5060 GOTO 4700 

5070 ? 

5080 * SAUVEGARDE DU TABLEAU 

5090 ? 

5100 MODE 1 
5110 PRINT" METTEZ EN PLACE LA K7.. 
5120 PRINT:PRINT:PRINT:PRINT"APPUYEZ SUR 
REC & PLAY PUIS UNE TOUCHE:"; 

5130 PRINT CHR$(143);:CALL &BR17:LOCATE 
40,5:PRINT" ”; 

5140 PRINT:PRINT" OK...° 

5150 OPENOUT”* !run. tab" 

5160 FOR u=3 TO 25:FO0R t=1 TO 40 

5170 PRINT#9,hit{t,u) 
5180 NEXT:NEXT 

5190 CLOSEOUT 

5200 PRINT:PRINT*" 
TUEE..." 

5210 CALL &BB17 

5220 RETURN 

5230 

5240 ? CHARGEMENT DU TABLEAU 
5250 

5260 MODE 1 
5270 PRINT" 


SAUVEGARDE EFFEC 


METTEZ EN PLACE LA K7.. 


5280 PRINT:PRINT:PRINT:PRINT"APPUYEZ SUR 
PLAY PUIS UNE TOUCHE :°; 

5290 PRINT CHR$(143):CALL &BB17:LOCATE 3 
3,5:PRINT" * 

5300 PRINT:PRINT" OK..." 

5310 OPENIN" ‘run. tab" 

5320 FOR u=3 TO 25:FO0R t=1 TO 40 


5330 INPUT#9,hit(t,u) 
5340 NEXT:NEXT 

5350 CLOSEIN 

5360 PRINT:PRINT" 
TUE..." 

5370 CALL &BB17 
5380 GOTO 4440 

5390 

5400 ?’ JOUER AVEC LE TABLEAU 

5410 ? 

5420 IF hit(1,25)=0 THEN CLS:PRINT" IM 
POSSIBLE TABLEAU NON EN MEMOIRE. ":CALL & 
BB17:G0T0 4440 

5430 GOSUB 1980 

5440 GOSUR 930 

5450 depart=1 

5460 pa=0:hom=0:p=0:nb=0:F0R u=3 TO 25:F 
OR t=1 TO 40 

5470 a=hit(t,u):PEN stila) 

5480 obs(t,u)=a:IF a(>3 AND a(25 AND at} 
& THEN 5520 

5490 IF a=3 THEN p=ptl:pa=l 

5500 IF a=5 AND hom=0 THEN x=t:y=u:hom=1 
:obs(t,u)=0 ELSE IF a=5 AND hom=1 THEN P 
RINT CHR$(7):LOCATE 10,10:PEN 3:PRINT'ER 
REUR, IMPOSSIBILITE D’AVOIR 2 BONHOMMES" ; 
:CALL &BB17:G0T0 4440 

5510 IF a=6 THEN nb=nb+1:IF nb)3 THEN PE, 
N 2:PRINT" ERREUR, 3 ENNEMIS SONT OBLIGA 
TOIRES.":CALL &BB17:G0OT0 4440: ELSE x(nb 
=tiy(nb)=u:obs(t,u)=0 

5520 LOCATE t,u:PRINT car$(a); 

5530 NEXT:NEXT 

5540 1F nb=D0 THEN LOCATE 1,10:PRINT* ERR 
EUR, il n’y a pas d’ennemis !...":2x=1 
5550 IF hom=0 THEN LOCATE 1,12:PRINT" ER 
REUR, il n’y a pas de bonhomme !...":2x=, 
| 

5560 IF 2x=1 THEN CALL &BB17:zx=0:G0T0 4 
440 

5570 G0TO 110 

5580 

5590 ? DEMO 

5600 ? 

5610 MODE 1:INK O,0:BORDER 0 

5620 PEN 1:PAPER J:LOCATE 193,1:PRINT'### 
MODE DEMO ###" 

5630 PAPER O:niv=0 

5640 niv=niv+i:IF niv>5 THEN niv=i 

5650 GOSUB 1860 

5660 FOR t=10 TO 35:SOUND 1,t,4,15,0,1:5 

OUND 2,t#10,4,15,1,0:SOUND 4,t#15,4,15,0 
, LNEXT 

5670 FOR t=35 TO 10 STEP-1:SOUND 1,t,4,1 
5,0,1:SOUND 2,t#10,4,15,1,0:SOUND 4, t#15 
,4515,0, 12NEXT 

5680 GOSUB 1170:BORDER 0 

5690 GOTO 5640 

5700 ? 

5710 ? THE END 

5720 

5730 MODE 1:PEN 1:INK O,1:INK 1,24: INK 2 
520: INK 3,6:BORDER ! 

5740 PRINT:PRINT:PRINT" MEMOIRE UTILIS 
EE:°3:PRINT HIMEM-FRE("") 

5750 PRINT:PRINT" MEMOIRE RESTANTE:" 3: 
PRINT FRE("") 

5760 PRINT:PRINT'L’ Amstrad" :PRINT" est" 


CHARGEMENT EFFEC 


5770 END 5 









retordre. 


Placer une brique dans une case, rien de 
bien compliqué, sauf si votre adversaire 
est un ordinateur. Ses possibilités de 
déduction transforment ce jeu en un gros 





tnon,.….. il n’y a pas de faute d'orthographe dans le nom de 
ce programme. II ne s’agit pas d’un casse-briques, mais d’un 
superbe jeu de réflexion qui vous donnera bien du fil à 


casse-tête. À vous de le contrer, pour 
que votre dernière brique soit gagnante. 
La première partie de ce programme est 
le traditionnel Loader qui devra être sau- 


BRIQUES 


EE | 
Georges GOUMENT 
De | 





vé en début de bande si vous n'utilisez 
pas de disquettes, avec, par exemple, le 
nom CASE. Le second programme sera 
sauvé impérativement après CASE sous 
le nom CASE1. Lorsque vous tapez RUN, 
l'écran reste bleu durant le temps néces- 
saire à la création de la page titre. Le jeu 
se pratique à l’aide des touches 1, 2 et 
3 de la rangée du haut uniquement car 
le pavé numérique à été redéfini pour les 
caractères accentués. La règle du jeu est 
incluse dans le programme. 
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G 1.1:PRINT titre$::PEN 1 

53 tx=x:y2=398 

54 FOR i=1 TO 8 

55 x2=0 

56 FOR j=1 TO pixel 

57 IF TEST(x2,y2)=2 THEN PLOT x,y. a:PLÔT 
x,u-2:PLOT x+2,y:PLOT x+2,y-2 

58 x=x+4:x2=x2+2 

59 NEXT j 

60 u=u-4:u2=y2-2:x=tx 

bi NEXT i 

62 LOCATE #1,1,1:PRINT#I,SPACES$ (caracter 

e) 

b3 RETURN 

b4 LOCATE 12,13:PRINT'auteur G. Goument 


CASE - BRIQUES 
auteur Georges Gourent 


AMSTRAD CPC 464 


D -Jj O- un & Ci FD — 


DO? HA HMHEHEE 
11 ? 

12 ? redefinition pave numerique 

13." 

LE HOME HER 
15 SYMBOL AFTER 127 

16 FOR i=128 TO 137 

17 READ s1,52,53,54,55,56,57,58 

18 SYMBOL i,51,52,53,54,55,56,57,c8 

19 KEY i,CHR$(i) 

20 NEXT 

21 DATA 24,36,60, 102, 102, 102,60,0,8, 16.8 
0,107,126.96,60, 0, 16,8, 60, 102, 126,96, 60. 
0,32,16,102, 102, 102, 102, 62,0,0,0,60, 102, 
96,62,8,24 

22 DATA 24,36,60,102,126,96,60,0,48,72,1 
20,12,124.204,118,0,24,36,56,24.24,24, 60 
,0,28,18,56, 108,56, 16,144,96,32, 16,120, 1 
2,124,204,118,0 

23 KEY 1938, CHR$ (63) 

24 KEY 139, CHR$(34) 

25? MERE 
26 ? 

27" page ecran chargement 

28 ? 

2 RRIEEEEEEE 
30 FOR i=236 TO 243 

J1 READ 51,52,53,54,55,56,57,58 

J2 SYMBOL i,51,52,53,54,55,56,57,58 

33 NEXT i 

34 DATA 0,0,0,818,842,824,418,&ff,&80, 89 
0, &a0, &c8, &cB,&aO, 490, &80, &ff,&18,824,&4 
2,818,0,0,0, 801,809, &05, 813,813, 805,809, 
to! 

35 DATA &Bc,&52,&02,859,899,882,&b6,&19, 
&31,&éa,k40,89a,8499,&41,&éb, 498,819, 866, 
&82,899,859, 802, 852, &Bc, &9B, kéb,&41,899, 
&9a,840,k4a, 431 à 
J6 MODE 1:BORDER 11:FOR 1=0 TO 3:INK 1,1 
1:NEXT I:PRINT CHR$(22)+CHR$(1):SPEED KE 


Y 1,1:PEN 0 

37 a$=STRING$(40, CHR$(143)):PEN 3:LOCATE 
1,1:PRINT a$:LOCATE 1,2:PRINT a$:LOCATE 
1,24:PRINT a$ 

38 FOR i=0 TO 16:PLOT O,i,3:DRAN 639,i:N 

EXT 

32 FOR i=3 TO 23:LOCATE 1,i:PRINT CHR$( 

43):LOCATE 2,i:PRINT CHR$(143):LOCATE 39 
,1:PRINT CHR$(143) :LOCATE 40,i:PRINT CHR 

$(143):NEXT i 

40 PEN D 

41 LOCATE 3,2:PRINT STRING$ (36, CHR$ (236) 

):LOCATE 5,24:PRINT STRING$ (36, CHR$ (238) 

) à 

42 FOR 1=3 TO Z3:LOCATE 2,1:PRINT CHR$(2 

J9):LOCATE 39,1:PRINT CHA$(2937):NEXT I 
43 FOR I=1 TO 4:READ X,Y,Z:LOCATE X,Y:PR 
INT CHR$(Z):NEXT I 

44 DATA 2,2,240,39,2,241,39,24,243,2,24, 

242 

45 titre$="CASE-BRIQUES" :y=320:a=2:t=0:G 

OSUB 4b:u=3lb:a=1:t=1:G0SUB 46:60T0 64 

46 caractere=LEN(titres) 

47 pixel=caractere*8 

48 IF t=0 THEN 51 

49 x=(646-caractere+32)/2 

50 GOTO 52 

51 x=(639-caractere*32)/2 

52 PEN Z:LOCATE 1,1:PRINT titre$::PEN 1 

53 tx=x:u2=398 

54 FOR i=i T0 8 

55 x2=0 

56 FOR j=1 TO pixel 


57-IF TEST(x2,y2)=2 THEN PLOT x,y,a:PLOT 


x,y-2:PLÔT x+Z,y:PLOT x+2,u-2 
58 x=x+4:x2=x2+2 
59 NEXT j 
60 y=y-4:y2=u2-2:x=tx 
bi NEXT i L 
62 LOCATE #1,1,1:PRINT#1,SPACE$(caracter 
e) 
63 RETURN 
64 LOCATE 12,13:PRINT'auteur G. Goument 
65 PEN Z:LOCATE 5,20:PRINT'patientez.... 
chargement en cours” 
66 INK O,0:INK 1,2:INK 2,25:INK 3,11:SPE 
ED KEY 20,1 
67 RUN ‘casel” 


LA, 


AE 


1 
2 
d.” REGLES DU JEU, 
4 


CRMTT III IS II ILILSILCLCLS LL 

b MODE 1:BORDER 13:INK 0,13:INK 1,4:PAPE 

R°O:ar=0:SPEED KEY 20,1:PEN 1 

7 LOCATE 14,3:PRINT* CAGE-BRIQUES" :LOCATE 
13,43 PRINT" HE" : PRINT: PRINT: 

PRINT"Le but du jeu est le suivant, arri 

ver lepremier dans la case centrale.":PR 

INT:PRINT 

8 PRINT" Vous allez affronter l’ordinate 


: ffrentes 


ur, maisrassurez-vous, Si Vous ne parven 
ez pas le battre, il adaptera son nivea 
u de jeuau vtre.":PRINT:PRINT:PRINT"Son 
rle n’est pas de vous dcourager !!":6 
OSUB 18 
9 LOCATE 1,4:PRINT'Le premier joueur est 
tir au sort, pourtoute nouvelle partie 
, c’est le perdant de la predente qui 
commencera. * :PRINT:PRINT 
10 PRINT" Vous disposez d’une boite perc 
e de 25 cases dans lesquelles vous pla 
cerez tour de rie des briques de di 
valeurs, *:PRINT 
PRINT 
11 PRINT" Vous jouez avec trois briques 
rouges.":PRINT:PRINT" Aucune limitation 
dans la quantit.":GOSUB 18 
12 PRINT'PLACEMENT DES BRIQUES:* :PRINT"# 
HHNEHHNNEE" : PRINT : PRINT" TOUCH 
ES 1,2 OU 3 selon ia valeur 
NT:PRINT'Les briques sont places automa 
tiquementdans les cases en fonction de 
la valeurde la brique adverse joue pre 
demment . * 
13 PRINT:PRINT'La brique { est joue, la 
brique adversese place dans la case sui 
vante.":PRINT:PRINT'La brique 2 est pos 
e, la brique adversesera joue deux case 
s plus loin.":PRINT:PRINT"Idem avec la b 
rique 3." 
14 GOSUB 18 
15 LOCATE 1,5:PRINT'Dans la dernire cas 
e o celle du centreon ne peut jouer que 
la brique { et dansl’avant dernire la 
brique ! ou la 2,":PRINT:PRINT 
18 PRINT'Il ne vous reste qu’ remplir 
es cases avec astuce, en plaant la bonn 
e brique au bon endroit, pour remporter 
la partie":PRINT:PRINT:PRINT:PRINT" 
BONNE CHANCE" :GOSUB 1B:G0T0 22 
17 LOCATE 31,24:PEN O:PRINT CHR$(143) 
18 LOCATE 30,24:PEN 1:PRINT'" (Suite -->" 
19 touche$=INKEYS:1F touche$="" THEN 17 
20 IF touche$="S" OR touche$="s" THEN CL 
S:RETURN 
GOTO 19 
MTTTT IIS III LILI SIT 1 
* initialisation des variables et 
?  redefinition des caracteres 
MTS TITI III SI SITES IST LILI. 
28 MODE O:BORDER 14:INK O,14:PRINT CHR$( 
22)+CHR$(1):RANDOMIZE TIME :SCORE1=0: SCOR 
E2=0:PARTIE=0:DIF=13:CHOIX=INT (RND#20) +1 
29 IF CHOIX>10 THEN JOUEUR=Z ELSE JOUEUR 
=” 
30 a$="PATIENTEZ':b$='ERREU 
R':ENV 1,=10, 5000:NOTE=32 
31 FOR i=235 TO 255:READ 51,52,53,54,s5, 
56,57,58:SYMBOL i,51,52,53,54,55,56,57,5 
B:NEXT 
32 DATA 480,440, 820,410, &B,&4,82,8&1,0,0, 
0,418,842,824,8&18,&ff,8&90, 90, &aO, &cB, &kc 
8,La0, &90, 880, &ff,8&18,&24,&42,&18,0,0,0, 
01,809, 805,413,413,405,809, 801, &8c, 852, 
&02,859,899,882, &bb,k19,831,&4a, &4D, &9a, 
499, &41,&éb,498,&19,&6b,&82,8&99,859, &02, 
&52,&Bc 
33 DATA 498,466, &41,899,&9a,&4D, ka, &31, 


jouer" :PRI 
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&bf,820, LeO, &80, 881,483, 487,481 ,&fd, 804. 
407,801,481,881,481,481.8481,881,881,887, 
&80, &e0, 420, &bf, 481,881, 881,Lel, 401,807, 
&04,&fd, &bf,&20, keO, 880, 883,886, 880, £81, 
&fd, 404, 607,801, &c1,&é1,&b1,&cl 
34 DATA &B3, &Bb, 86, 487, 880, &eO, &20, &bf, 
&01, 801,821, Let, 8&01,407,804,&fd, &bf, 820, 
LeO, &80, 483, &B4, &80, 881, &fd, &04, 807, 801, 
&ci,&é1l,&b1,kc1,&80, 880, &86,&83, 880, ke0. 
&20, &bf,&ét,&ét,&b1,kci, 801,807, 804, &fd 
TS AM 
Jé ’ 
37 ? dessin et affichages divers 
36 ? 
TD EEE EEE EEE 
40 FOR I=0 TO 14:INK 1,14:NEXT:PAPER CO 
41 INK 15,4,14:PEN 15:FOR i=1 TO LEN(af) 
tLOCATE 1,1:PRINT MID$(a$,i,1):NEXT 
42 a$=STRINGS(19,CHR$(143)):PEN 1 
43 FOR i=i TO 24:LOCATE 2.1:PRINT a$:NEX 
T 
44 FOR i=i TO 1B:PEN D:LOCATE 2, i:PRINT 
CHR$ (143) ;CHR$(143):LOCATE 19,i:PRINT CH 
R$(143) ; CHR$(143) :NEXT 
45 GOSUR 85 
46 LOCATE 2,24:PEN O:PRINT CHR$(215) 
47 FOR i=1 TO 6:READ y,cl.c2:LOCATE 2,u: 
PEN 4:PRINT CHR$(ci):LOCATE Z,y:PEN 3:PR 
INT CHR$(c2) :NEXT 
48 DATA 24,213,221,29,143,207,22, 143,207 
,21,143,207,20,143,207,19,143,207 
49 FOR i=i TO 3:READ x,ci,cZ:LOCATE x,19 
:PEN 2:PRINT CHR$(c{):LOCATE x,19:PEN 3: 
PRINT CHR$(c2) :NEXT GE é 
50 DATA 2,213,221,3,143,207,4,143, 207 
51 LOCATE 4,19:PEN 4:PRINT CHR$(213) :LOC 
ATE 4,19:PEN 3:PRINT CHR$(221) 
52 FOR y=1 TO 1B:LOCATE 4,u:PEN 4: PRINT 
CHR$(143):LOCATE 4,y:PEN J:PRINT CHR$(20 
7):NEXT 
53 FOR i=1 TO 5:READ x,ci,cZ:LOCATE x, 1: 
PEN 2:PRINT CHR$(cI):LOCATE x+10,1:PRINT 
CHR$(cI):LOCATE x,1:PEN 3:PRINT CHR$(cZ 
JLOCATE x+10,1:PRINT CHR$(c2):NEXT 
54 DATA 4,213,221,5,143,207,6,143,207,7, 
143,207,8, 143,207 
35 FOR i=9 TO 14:PEN 2:LOCATE i,1:PRINT 
CHR$(143):LOCATE i,1:PEN J:PRINT CHR$(20 
7) :NEXT 
56 PEN O:LOCATE 1B,1:PRINT CHR$(213) 
57 LOCATE 19,19:PEN 2:PRINT CHR$(143);CH 
R$(143):LOCATE 19,19:PEN 3:PRINT CHR$(20 
7);CHR$(207) :LOCATE 20,19:PEN O:PRINT CH 
R$(213) 
38 LOCATE 4,21:PEN O:PRINT STRING$(16,CH 
R$(143)):LOCATE 4,22:PRINT STRING$(16, CH 
R$(143)):LOCATE 4,23:PRINT STRING$(16, CH 
R$(143)):LOCATE 4,24:PEN 2:PRINT STRINGS 
(16,CHR$(143)):LOCATE 4,24:PEN 3:PRINT S 
TRING$ (16, CHR$(207)) 
39 LOCATE 19,21:PEN 4:PRINT CHR$(143):LO 
CATE 19,22Z:PRINT CHR$(143):LOCATE 19,23: 
PRINT CHR$(143):LOCATE 19,24:PRINT CHR$( 
213):PEN J:LOCATE 19,24:PRINT CHR$(221): 
LOCATE 19,23:PRINT CHR$(207):LOCATE 19,2 
2:PRINT CHR$(207):LOCATE 19,21:PRINT CHR 
$(207) 
60 FOR i=1 TO 12:READ x,y,c:PEN 7:LOCATE 
X,U:PRINT CHR$(c):NEXT 
61 DATA 10,12,240,11,12,236,12,12,236,13 
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112,241,13,13,237,13,14,237,13,15,243,12 

115,238,11,15,238,10,15,242,10, 14,239, 10 

13,239 

62 LOCATE 5,20:PEN 5:PRINT" CPC464" :LOCAT 

E 193,20:PEN 6:PRINT"JOUEUR" : PEN 5:LOCATE 
b,3:PRINT'O0" :LOCATE 16,3:PEN 6:PRINT'O 

0" 

63 PEN 14:LOCATE 9,2:PRINT" partie" :LOCAT 

E 9,4:PRINT"qagne* 

b4 a$=STRINGS(6, CHR$(143)) 

63 LOCATE 5,23:PEN 10:PRINT a$:LOCATE 5, 

24:PRINT a$:LOCATE 13,23:PEN 12:PRINT a$ 
ILOCATE 13,24:PRINT a$ 

bb a1$=CHR$(244)+CHR$(245)+CHR$(248)+CHR 

$(249)+CHR$(252)+CHR$ (253) 

67 a2$=CHR$(246)+CHR$(247)+CHR$(250)+CHR 

$(251)+CHR$(254)+CHR$ (255) 

6B LOCATE 5,23:PEN 9:PRINT al$:LOCATE 5, 

24:PRINT ‘a2$:LOCATE 13,23:PEN 11:PRINT à 
I$:LOCATE 13,24:PRINT a2$ 

69.FOR 1=1 TO J:READ X,Y,C:PEN 9:LOCATE 

X,Y:PRINT CHR$(C):PEN 11:LOCATE X+8,Y:PR 
INT CHR$(C):NEXT 

70 DATA 4,22,215,4,23,143,4,24,213 

71 LOCATE 4,22:PEN 10:PRINT CHR$(213):;ST 

RING$ (5, CHR$(143)) ; CHR$(215) 

72 LOCATE 12,22:PEN 12:PRINT CHR$(213):;S 

TRING$(5,CHR$(143)) ; CHR$(215) 

73 INK 15,14:FOR I=1 TO 1B:LOCATE 1,1:PE 

N O:PRINT CHR$(143) :NEXT 

74 FOR i=1 TO 15:READ c:INK i,c:NEXT:DAT 

À 12,18,13,9,2,6,17,25,1,2,3,6,4,12,14 

75 PEN 9:LOCATE 6,22:PRINT CHR$(235) :LOC 


TE 8,2Z:PRINT CHR$(235) 


7b PEN 11:LOCATE 14,22:PRINT CHR$(235):L 
OCATE 16,22:PRINT CHR$(235) 

T7.FOR 1=1 TO LEN(D$):PEN 15:LOCATE 20, i 
PRINT MID$(b$,i,1):NEXT 

78 GOTO 144 

LRMETITE CT TS SSII CII IIS 1.1 1: 
80 ?, 

81 ” mise en place des 25 cases de jeu 
82 ? et de la case centrale 

83 ? 

CORTE TT TEST ESS SES IIS 
85 FOR x=6 TO 16 STEP 2 

86 SOUND 1,N0TE,5,5 

87 LOCATE x,5:PEN O:PRINT CHR$(143) 

BB LOCATE x+1,5:PEN 4:PRINT CHR$(143) 

89. LOCATE x+1,5:PEN 3:PRINT CHR$(207) 

90 LOCATE x,6:PEN 2:PRINT CHR$(143) ;CHR$ 
(143) 

91 LOCATE x+1,6:PEN 4:PRINT CHR$(213) 

92 LOCATE x,6:PEN 3:PRINT CHR$(207) ; CHR$ 
(207) 

93 NOTE=NOTE+1 

94 NEXT 

95 FOR y= 5. TO 17 STEP 2 

96 SOUND 1,N0TE,5,5 

97 LOCATE 16,y:PEN O:PRINT CHR$(143) 

98 LOCATE 17,y:PEN 4:PRINT CHR$(143) 

99 LOCATE 17,u:PEN J:PRINT CHR$(207) 

100 LOCATE 17,utl:PEN 4:PRINT CHR$(143) 
101 LOCATE 16,y+1:PEN 2:PRINT CHR$(143); 
CHR$(215) 

102 LOCATE 16,y+1:PEN 3:PRINT CHR$(207); 
CHR$ (207) 

103 NOTE=NOTE+1 

104 NEXT 

105 FOR x=15 TO 7 STEP-2 














106 SOUND 1,N0TE,5,5 

107 LOCATE x,17:PEN 4:PRINT CHR$(143) 

108 LOCATE x-1,17:PEN O:PRINT CHR$(143) 

109 LOCATE x,17:PEN 3:PRINT CHR$(207) 

110 LOCATE x-1,18:PEN 2:PRINT CHR$(143); 

CHR$(143) 5 

111 LOCATE x, 1B:PEN 4:PRINT CHR$(213) 

112 LOCATE x-1,18:PEN 3:PRINT CHR$(207); 

CHR$(207) 

113 NOTE=NOTE+! 

114 NEXT 

115 FOR u=16 TO 10 STEP-2 

116 SOUND 1,N0TE,5,5 

117 LOCATE 6,u:PEN Z:PRINT CHR$(143) : CHR 

$(143) 

118 LOCATE 7,u:PEN 4:PRINT CHR$(213) 

119 LOCATE b.u:PEN 3:PRINT CHR$(207): CHR 

$(207) 

120 LOCATE b,y-1:PEN O:PRINT CHR$(143) 

121 LOCATE 7,u-L:PEN 4:PRINT CHR$(143) 

122 LOCATE 7,y-L:PEN 3:PRINT CHR$(207) 

123 NOTE=NOTE+! 

124 NEXT 

125 FOR x=8 TO 12 STEP 2 

126 SOUND 1,N0TE,5,5 

127 LOCATE x,9:PEN O:PRINT CHR$(143) 

128 LOCATE x+1,9:PEN 4:PRINT CHR$(143) 

129 LOCATE x+1,9:PEN 3:PRINT CHR$(207) 

190 LOCATE x,1D0:PEN 2:PRINT CHR$(143):;CH 

R$(143) 

131 LOCATE x+1.1D:PEN 4:PRINT CHR$(213) 

192 LOCATE x, 10:PEN 3:PRINT CHR$(207) ;CH 

R$(207) 

133 NOTE=NOTE+! 

134 NEXT 

135 LOCATE 11,13:PEN O:PRINT CHR$(143):L 

OCATE 12,13:PEN 4:PRINT CHR$(143) :LOCATE 
12,13:PEN J:PRINT CHR$(207):LOCATE 11,1 

A:PEN 2:PRINT CHR$(143) ;CHR$(143) 

136 LOCATE 12,14:PEN 4:PRINT CHR$(213):L 

OCATE 11,14:PEN 3:PRINT CHR$(207) ; CHR$(2 

07) 

137 RETURN 

IRCRMIETIITI I STI III IIS 11 1.11 

139 

140 ? memorisation des positions de 

141 ? chaque case de jeu 

142 ? 

(URI TETE EESTI ES II II 1111.11 

144 CASE=1 

145 CHOIX=15:G0SUB 277 

146 RESTORE 150 

147 FOR 1=1 TO 26-CASE 

148 READ COL,LIG 

149 NEXT 

150 DATA 11,13,12,9,10,9,8,9,6,9,6,11,6, 

13,6,15,6,17,8,17,10,17,12,17,14,17,16,1 

7,16,15,16,13,16,11,16,9,16,7,16,5,14,5, 

12,5,10,5,8,5,6,5 

DSL AAA 

132:° 

153?  clignotement des couleurs 

154 ? selon le tour de jeu 

155 ? 

[RUAMEZZTEETTEETTEETTTETTPS TETE ITS 

157 IF jOUEUR=1 THEN INK 5,12,2:INK 6,6: 

SOUND 1,16,10,0,1:F0R D=1 TO 1000:NEXT:6 

OTO 159 

158 IF jOUEUR=2 THEN INK 6,12,6:INK 5,2: 

SOUND 1,64,10,0,1 










































































159 LOCATE 5,8:PEN 1:PRINT FRE("") 
160 IF JOUEUR=2 THEN 185 

LOÛ ARMES 
162 ” 

163 ? jeu de l’ordinateur 

164 ? 

LOS? AA 
166 JOUEUR=2 

167 IF CASE)22 THEN 170 

168 IF CASE<DIF THEN 172 

169 IF CASE<12 THEN 171 

170 ON 26-CASE GO0TO 179,177,177,178,179. 
172,177,178,179,172.177.178,179,172 

471 ON 12-CASE GOTO 177,178,179,172,177, 
178.179,172,177,178,179 

172 MARQUE=INT (RND#3)+1 

173 IF MARQUE=! THEN CARACTERE=244:COULE 

UR1=9: COULEUR2=10:VALEUR=49:G0TO 196 

174 IF MARQUE=2 THEN CARACTERE=24B:COULE 

UR1=9:COULEUR2=10:VALEUR=50:G0TO 196 

175 IF MARQUE=3 THEN CARACTERE =257;:COULE 

UR1=9:COULEUR2=10:VALEUR=51:G0TO 196 
176 GOTO 172 

177 MARQUE=!:G0TO 173 

178 MARQUE=2:60T0 174 

179 MARQUE=3:G0TO 175 

BD? MATE 
181 

182 ? jeu de son partenaire 

183 

LB AMEN 
185 JOUEUR=1 

186 TOUCHE$=INKEY$: IF TOUCHES="" THEN 18 
b 

187 IF TOUCHE$="1" THEN CARACTERE=Z44:C0 
ULEUR1=1 1 : COULEUR2=12:VALEUR=49:G0T0 196 
188 IF TOUCHES$="2" THEN CARACTERE=248:C0 
ULEUR1=1 1 : COULEUR2=12:VALEUR=50:G0TO 198 
189 IF TOUCHES$="3" THEN CARACTERE=252: C0 
ULEUR1=1 1 : COULEUR2=1 2: VALEUR=5 1 

290? AAA EEE 
191 ? 

192 ’ affichage des briques dans les 
193 * cases . sert aux deux joueurs 
194 ? 

LOS AMEN 
196 IF CASE=24 AND VALEUR)49 THEN GOSUB 
257:60T0 188 

197 IF CASE=23 AND VALEUR>50 THEN GOSUB 
257:G0T0 186 

198 IF CASE=25 THEN GOSUR 265:CARACTERE= 
240 

199 LOCATE COL,LIG:PEN COULEUR2:PRINT CH 
R$(143) ;CHR$(143):LOCATE COL,LIG:PEN COU 
LEURI :PRINT CHR$(CARACTERE ) ; CHR$ (CARACTE 
RE+1) 

200 LOCATE COL,LIG+1:PEN COULEUR? : PRINT 
CHR$(143) :CHR$(143) :LOCATE COL.LIG+1:PEN 
COULEURI : PRINT CHR$(CARACTERE+2) : CHR$(C 
ARACTERE +3) 

201 IF CASE=25 THEN 221 

202? AH HE 

203 ? 

204 ?” mise a jour des positions apres 

205 ? chaque tour de jeu 

206 ? 

207 AMENER 

208 CASE=CASE+VALEUR-48 

209 1F CASE=24 THEN 212 

210 IF CASE=23 THEN 214 






















211 GOTO 146 
212 CHOIX=11 
213 GOTO 146 
214 CHOIX=13 
215 GOTO 146 
PURES ETS 1 1 II III III: 11111111 
at7 

218 ? affichage score du joueur 

219 ? 

220? HMS 
221 IF JOUEUR=2 THEN 233 

222 SCORE2=SCORE2+1 :PARTIE=PARTIE+1 

223 DIF=DIF-1 

224 IF SCOREZ>9 THEN 226 

225 LOCATE 17,3:PEN 1:PRINT CHR$(143):L0 
CATE 16,3:PEN 6:PRINT SCORE2:G0T0 244 
226 LOCATE 16,3:PEN 1:PRINT CHR$(143):CH 
R$(143):LOCATE 15,3:PEN 6:PRINT SCOREZ 
227 GOTO 244 

228 HAE NME EEE 
229 ? 

230 ? affichage score de l’ordinateur 
231 ? 

232 HRRHIREEEEEEREREE 
233 SCORE1=SCORE1+1:PARTIE=PARTIE+1 

234 DIF=DIF+1 

235 IF SCORE1>9 THEN 237 

236 LOCATE 7,3:PEN 1:PRINT CHR$(143):LOC 
ATE 6,3:PEN 5:PRINT SCOREL:GO0TO 244 

237 LOCATE 6,3:PEN 1:PRINT CHR$(143);CHR 
$(143):LOCATE 5,3:PEN 5:PRINT SCORE! 

238? HAAIMEEHEE 
239 ? 

240 ? attente d’une. touche 

241 * nouvelle partie ou fin du jeu 

242 ? 

QT HAINE 
244 INK 5,12:INK 6,12:PEN 14:LOCATE 5,19 
:PRINT'une autre o/n° 

245 TOUCHES$=INKEYS:IF TOUCHE$="" THEN 24 
4 

246 IF TOUCHE$="0" OR TOUCHE$="0" THEN N 
OTE=32: INK 14,12:INK 5,2: INK 6,6:LOCATE 
5,19:PEN 1:PRINT STRING$(14,CHR$(143)):G 
OSUB 85:G0T0 144 

247 IF TOUCHES="N" OR TOUCHE$="n* THEN 2 
48 ELSE 245 

248 MODE 1:AR=0:INK 0,0:INK 1,6:PRINT'NO 
US VENONS DE JOUER ";PARTIE:" PARTIES":P 
RINT:PRINT:PRINT:PRINT*RESULTATS :*:PRIN 
THERE" : PRINT : PRINT : PRINT" ORDINAT 
EUR : ";SCOREL:PRINT:PRINT:PRINT"  JOUEU 
R : ";SCORE2:GOSUB 277 

249 MODE 1:BORDER 1:INK O,1:INK 1.24:PAP 
ER O:PEN 1:END 

250 BORDER 1:INK O,1:INK 1,24:PEN 1:END 


DSL HANNAH 
253 * erreur de valeurs dans les deux 
254 ? dernieres cases 

25° 

256 HERMANN EEE 
257 INK 15,7,14 

258 FOR I=1 TO 2:SOUND 1,940, 100, 15:NEXT 
FOR 1=1 TO 1500:NEXT:INK 15,14:RETURN 
PoUAMITIII III III III II III 
260 ? 

261 * partie gadnee par l'ordinateur 

262 ? ou le joueur 



















263 ? 
24 ARMMMEEHNE 
265 X=11:Y=13:CARACTERE=240:NOTE1=16: NOT 
E2=271:K=255:1F JOUEUR=2 THEN INK 14,2,1 
2 ELSE INK 14,6,12 

266 FOR I=1 TO 255 

267 SOUND 1,NO0TE1,1,15:POKE &B2BF, I :LOCA 
TE X,Y:PRINT CHR$ (CARACTERE) ; CHR$ (CARACT 
ERE+1) 

268 SOUND 1,NO0TE2,1,15:POKE &B28F,K:LOCA 
TE X,Y+1:PRINT CHR$(CARACTERE+2) ; CHRS(CA 
RACTERE+3) ù 

269 K=K-1:NÔTEI=NOTE1+1 :NOTE2=NOTE2-1 
270 NEXT 

271 RETURN 

PAVARET TI STI ES ETS ST STI ST. 
273 ? 

278 ? accompagnement musical 

272: 

276? AAA 
277 ENV 1,=1,10000:ENV 2,=8, 1200 

278 RESTORE 302:FOR i=1 TO 4:READ n,d:50 
UND 1,125000/n,100#d,,1:1F AR=1 THEN 280 
ELSE SOUND 2,125000/130. 813, 100#d, , 1 
279 IF ar=0 THEN 281 

280 SOUND 2,15625/n, 100+d, ,2 

281 NEXT 

282 RESTORE 303:F0R i=1 TO B:READ n,d:50 
UND 1,125000/n,100#0,,1:1F ar=1 THEN 284 
ELSE SOUND 2,125000/195.998, 100#d, , 1 
283 IF ar=0 THEN 285 

284 SOUND 2,15625/n, 100+d, ,2 

285 NEXT 

286 RESTORE 304:F0R i=1 TO 10:READ n,d:S 
OUND 1,125000/n, 100#d,,1:1F ar=1 THEN 28 
8 ELSE SOUND 2,125000/130. 813, 100xd, ,1 
287 IF ar=0 THEN 289 

288 SOUND 2,15625/n, 100#d, ,2 

289 NEXT 

290 RESTORE 305:F0R i=1 TO B:READ n,d:50 
UND 1,125000/n,100#d,,1:1F ar=1 THEN 292 
ELSE SOUND 2,125000/195.998, 100#d, ,1 
291 IF ar=0 THEN 293 

292 SOUND 2,15625/n, 100#d, ,2 

293 NEXT 

294 RESTORE 306:FOR i=1 TO 3:READ n,d:50 

UND 1,125000/n,100#d,,1:1F ar=1 THEN 296 
ELSE SOUND 2,125000/130.813, 100#d, ,1 
295 IF-ar=0 THEN 297 j 

296 SOUND 2,15625/n, 100#d, , 2 

297 NEXT : 

298 IF ar=0 THEN ar=1:60T0 300 

299 IF ar=1 THEN FOR i=1 TO 3O0O:NEXT:RE 
TURN 

300 SOUND 1,0,20,D0:SOUND 2,0, 20, 0: SOUND 
4,0.190,0 

301 GOTO 278 

302 DATA 659.255,.4,783.991,.4,523.251,. 
4,659.255,.4 

303 DATA 659.255,.2,587.330,.2,698.457,. 

9,587.330,.4,698.457,.2,698.457,.2,493,8 
83,.4,587.330,.4 

J04 DATA 587.330,.2,523.251,.2,659.255,, 
9,659.255,.2,659.255,.2,783.991,.2,7B3,9 

91,.2,523.251,.4,659.255,.2,659.255, .2 
305 DATA 659.255,.2,587.330,.2,698.457,, 

9,587.330,.4,698.457,.4,698.457,.4,493,8 
83,.4,587.330, .4 

306 DATA 587.330,.2,523.251,.2,523,251, 

15 
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ne ET SNAFF 


Christian MATHIS 


Les temps sont durs, il vous 
faut gagner votre vie, et vous 
avez trouvé un château plein 


de dollars. 
Mais un affreux monstre ne l'entend pas 
de cette oreille, et il fera tout pour vous 
empêcher d'attraper les précieux billets 
verts. Oh ! Mais attendez, ce n'est pas 
l'unique problème. La nature a été cruelle 
avec vous, mais vous n'êtes pas rancu- 
nier, après tout, plus c'est petit, plus 
c'est mignon. Manque de chance, les 
dollars sont suspendus au plafond. Il 
vous faudra sauter pour les attraper. 
Pour vous débarrasser du monstre, deux 
solutions se présentent à vous : jouer 
avec les échelles ou creuser des trous 
dans le plancher afin d'enterrer votre 
dangereux poursuivant. Mais, je ne vous 
en dis pas plus, le mode d'emploi est 
inclus dans le programme. Tapez-le, vous 
ne serez pas déçu. 
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Vous ANEZ VU HES +oïGrsT!l 
LA PROUMNE Pois, Je 
COHHANDE a, DISQUE TE 


Utilisez le serveur MHZ 


24 h./24 à votre disposition sur Télétel 3 


Composez le 3615 . 
La disquette du CPC 
puis tapez le code MHZ Hors-Série n° 2 
est DISPONIBLE 


Si vous n’avez pas le temps de tout taper ou si vous 

- Les dernières nouvelles avez des ampoules au bout des doigts après avoir 

- Les petites annonces électronique et informatique entré un kilo-octet, commandez la disquette HS 2 qui 

- Les sommaires de vos journaux contient tous les programmes du présent numéro plus 

- Etune boite aux lettres sérieuse et personnalisée qui un programme inédi t. Utilisez le bon de commande 
vous permettra de poser vos questions à la rédaction. figurant en dernière page. 


Au menu : 
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10 ? 

20 *DOLLARS par C.MATHIS & CPC 

30 ? 

40 MODE O:BORDER 0 

50 INK O,0:INK 1,20:INK 2,15:INK 3,25:IN 
K 4,72INK 5,18:INK 6,10: INK 7,26: INK 8,6 
415 

60 GOSUB 3140 

70 DIM ta%(20,24) 

80 SYMBOL AFTER 200 

90 SYMBOL 201,24,60, 60,24, 24,60, 126,255 
100 SYMROL 203,0,0,0,0,0,0,0,0 

110 SYMBOL 204,66,36,24,126,219, 255, 102, 
24 

120 SYMEOL 205.0,0,0,233,85,93,85,85 

130 SYMBOL 206,0,0,0, 144,82, 208,82, 152 
140 SYMROL 230,0,0,0,238,164,228, 132,132 
150 SYMBOL 231,0,0,0, 224, 132,224, 36, 224 
160 SYMBOL 253,0,0,0,171,170,171,170,75 
170 SYMBOL 254,0,0,0, 184,34, 184, 10.184 
180 SYMPOL 255,129,255,129,129,129,255,1 
29,129 

190 ech$=CHR$(255) : tomb$=CHR$ (201 ) :mo$=C 
HR$ (204) :vie$=CHR$(253)+CHR$ (254) :tabl$= 
CHR$(205)+CHR$ (206) : pt$=CHR$ (230) +CHR$# (2 
31) 

200 ME ILLEURSCORE=0 

210 tableau=1 :VIE=4:SCÛRE=0 

220 

230 'ie tableau 

240 ? 

250 DATA 36,36,0,36,36,36,36, 36,36, 36,36 
.%6,36,36,0,36,36,36,36,211 

260 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,211 

270 DATA 0,0,255,0,0,0,0,0,0,0,0,0,0,0,2 
55,0,0,0,0,211 

280 DATA 143,143,255,143,143,143,143,143 
1143,143,143,143,143,143,255,143, 143,143 
143,211 

290 DATA 36,203,255, 203, 36,36, 36,36, 36,3 
6,36,36, 36, 203, 255,203, 36,0,36.211 

300 DATA 0,203, 255,203,0,0,0,0,0,0,0,0,0 
.203,255,203,0,0,0,211 

310 DATA 0,0,255,0,0,0,0,0,0,0,0,0,0,0,2 
55,0,0,255,0,211 

320 DATA-143,143,255,143,143,143,143,143 
.143,1493,143,143,143,143,143, 143, 143,255 
143,211 

330 DATA 36,203, 255,203, 36,36, 36,0, 36, 36 
,J6,36,36,36,36,36,203, 255, 203,211 

340 DATA 0, 203,255, 203,0, 0,0,0,0,0,0,0,0 
,0,0,0,203, 255,203,211 

350 DATA 0,0,255,0,0,0,0,255,0,0,0,0,0,0 
,0,0,0,255,0,211 

J60 DATA 143,143,255,143,143,143,143,255 
143,143,143,143,143,143,143,143,143,143 
143,211 

370 DATA 0,203, 255,203, 36,36, 203, 255, 203 
,36,36,36,3b,36,3b,36,0,36, 36,211 

380 DATA 0,203, 255,203,0,0, 203, 255, 203,0 


,0,0,0,0,0,0,0,0,0,211 

390 DATA 0,0,255,0,0,0,0,255,0,0,0,0,0,0 
.0,0,255,0,0,211 

400 DATA 143,143,143,143,143,143,143,255 
1143.143,143,143,143,143,143,143,255,143 
143,211 

410 DATA 36,36, 36,0,36, 36,203, 255, 203, 36 
96,36, 36,36,36,203,255,203, 36,211 

420 DATA 0,0,0,0,0,0,203,255,203,0,0,0,0 
.0,0,203,255,203,0,211 

430 DATA 0,0,0,255,0,0,0,255,0,0,0,0,0,0 
,0,0,255,0,0,211 

440 DATA 143,143,143,255,143,143,143,143 
,143,143,143,143,143,143,143,143,255,143 
143,211 

450 DATA 36,36, 203,255, 203, 6, 36,36, 36,3 
6,36,36,36,36,36,203,255,203,36,211 

460 DATA 0,0,203,255,203,0,0,0,0,0,0,0,0 
,0,0,203,255,203,0,211 

470 DATA 0,0,0,255,0,0,0,0,0,0,0,0,0,0,0 
.0,255,0,0,211 

480 DATA 208, 208, 208, 268, 208, 208, 208, 208 
, 208, 208, 208, 208, 208, 208, 208, 208, 208, 208 
208,211 

490 ? 

500 ’2e tableau 

510 ? 

520 DATA J6,36,36,36,0,36,36,36, 36,36, 36 
,36,36,36,0,36,36,36, 36,211 

530 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,211 

540 DATA 0,0,0,0,255,0,0,0,0,0,0,0,0,0,2 
55,0,0,0,0,211 

550 DATA 143,143,143,143,255,143, 143,143 
1149,143,143,143,143,143,255,143, 143,143 
143,211 

560 DATA 36,36,36,203,255,203,36,36,36,3 
6,36,36,36, 203,255, 203,36,0,36,211 

570 DATA 0,0,0,203,255,203, 0,0, 0,0,0,0,0 
203,255, 203,0,0,0,211 

580 DATA 0,0,0,0,255,0,0,0,0,0,0,0,0,0,2 
55,0,0,255,0,211 

590 DATA 143,143,143,143,255,143, 143,143 
.143,143,143,143,143,143,143,143,143,255 
143,211 

600 DATA 36,36,36,203, 255,203, 36, 36, 36,3 
6,0,36,36,36,36, 36,203, 255,203,211 

610 DATA 0,0,0,203, 255,203, 0, 203,0,0,0,0 
,0,0,0,0, 203,255, 203,211 

620 DATA 0,0,0,0,255,0,0,0,0,0,255,0,0,0 
,0,0,0,255,0,211 

630 DATA 143,143,143,143,143,143,143,143 
.143,143,255,143,143,143,143,143,143,255 
143,211 

640 DATA 0,0,0,0,36,936,36,36,36,203,255, 
203, 36,36, 36,36, 203, 255,203,211 

650 DATA 0,0,0,0,0,0,0,0,0, 203,255,203,0 
,0,0,0,203,255,203,211 

660 DATA 0,0,0,0,0,0,0,0,0,0,255,0,0,0,0 
.0,0,255,0,211 

670 DATA 143,143,143,143,143,143,143,143 
1143,143,255,143,143,143,143,143,143,143 
143,211 

680 DATA 36,36,36,0,36,36.36,36,36, 203,2 
55,203,0,36,36,36,36,36, 36,211 

690 DATA 0,0,0,0,0,0,0,0,0,203, 255, 203,0 
,0,0,0,0,0,0,211 

700 DATA 0,0,0,255,0,0,0,0,0,0,255,0,255 


,0,0,0,0,0,0,211 
710 DATA 143,143, 143,255, 143, 143, 143, 143 
143,143, 143,143, 255, 143, 143, 143, 143,143 
143,211 

720 DATA 36,36, 203, 255, 203, 34,36, 36, 36,3 
6,36, 203, 255, 203, 36, 36, 36, 36, 26,211 

730 DATA 0,0, 203, 255, 203,0,0,0,0,0,0, 203 
,255,203,0,0,0,0,0,211 

740 DATA 0,0,0,255,0,0,0,0,0,0,0,0, 255,0 
,0,0,0,0,0,211 

750 DATA 208, 208, 208, 208, 208, 208, 208, 208 
,208, 208, 208, 208, 208, 208, 208, 208, 208, 208 
,208,211 

760 * 

770 ‘3e TABLEAU 

780 ? 

790 DATA 36,36,36,36, 36,36, 36,0, 36,36, 36 
,0,36,36,36, 36,36, 36,36, 211 

800 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,211 

810 DATA 0,0,0,0,0,0,0,255,0,0,0, 255,0,0 
,0,0,0,0,0,211 

820 DATA 143,143, 143, 143, 143,143, 143,255 
,143,143,143,255, 143, 143, 143, 143,143, 143 
143,211 

830 DATA 36,36,36, 36,0, 36, 203,255, 203,0, 
203,255, 203, 36, 36, 36, 36, 36, 36,211 

840 DATA 0,0,0,0,0,0, 203, 255, 203,0, 203, 2 
55,203,0,0,0,0,0,0, 211 

850 DATA 0,0,0,0,255,0,0, 255,0, 255,0, 255 
,0,0,0,0,0,0,0,211 

86O DATA 143,143, 143, 143,255, 143, 143, 143 
,143,255,143,143,143, 143,143, 143, 143,143 
143,211 

870 DATA 36,36,36, 203,255, 203,36, 36, 203, 
255,203, 36, 36, 36,0, 36,36, 36, 36,211 

880 DATA 0,0,0,203, 255, 203, 0, 0, 203, 255, 2 
03,0,0,0,0,0,0,0,0,211 

890 DATA 0,0,0,0,255,0,0,0,0,255,0,0,0,0 
,255,0,0,0,0,211 

900 DATA 143,143, 143, 143,255, 143, 143, 143 
,143,143,143,143,143, 143,255, 143, 143,143 
,143,211 

910 DATA 0,0,0,203, 255,203, 36, 36, 36, 36,3 
6,36,36, 203,255, 203, 36, 36,36, 211 

920 DATA 0,0,0,203, 255, 203, 0,0, 0,0,0,0,0 
,203,255,203,0,0,0,211 

930 DATA 0,0,0,0,255,0,0,0,0,0,0,0,0,0, 2 
55,0,0,0,0,211 

940 DATA 143,143,143,143, 143,143, 143, 143 
,143,143,143,143,143, 143,255, 143, 143, 143 
,143,211 

950 DATA 36,0,36, 36,36, 3b, 36,0, 36, 36,36, 
36,36, 203,255, 203, 36, 36, 36,211 

960 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0, 203, 2 
55,203,0,0,0, 211 

970 DATA 0,255,0,0,0,0,0,255,0,0,0,0,0,0 
,255,0,0,0,0, 211 

980 DATA 143,255, 143,143, 143, 143, 143, 255 
,143,143,143,143,143, 143, 143, 143,143, 143 
,143,211 

990 DATA 203,255, 203, 36, 36, 36, 203, 255, 20 
3,36,36,36,36, 36,36, 36,36, 36, 36,211 

1000 DATA 203,255, 203,0,0,0, 203, 255, 203, 
0,0,0,0,0,0,0,0,0,0,211 

1010 DATA 0,255,0,0,0,0,0,255,0,0,0,0,0, 
0,0,0,0,0,0,211 

1020 DATA 208, 208, 208, 208, 208. 208, 208, 20 
8, 208, 208, 208, 208, 208, 208, 208, 208, 208, 2 





15 


8,208,211 

1030 

1040 ? 4e TABLEAU 

1050 ? 

1060 DATA 36,36,36,36,3b,36,36,36,0,0,0, 
Jé,36,36,0,0,36,36,36,211 

1070 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,211 

1080 DATA 0,0,0,0,0,0,0,0,0,255,0,0,0,0, 
255,0,0,0,0,211 

1090 DATA 143,143,143,143,143,143,143,14 
3,143,255,149,143,143,143,255, 143,143, 14 
3,143,211 

1100 DATA 36,36,36,36,36,36,36,0, 203,255 
203,36, 36, 203, 255,203, 36,36, 36,211 
‘1110 DATA 0,0,0,0,0,0,0,0,203,255,203,0, 
0,203, 255,203,0,0,0,211 : 

1120 DATA 0,0,0,0,0,0,0,0,0,255,0,0,0,0, 
255,0,0,0,0,211 

1130 DATA 143,143,143,143,143,143,143,14 
3,143,255,143,143,143,143,143,143,143,14 
3,143,211 

1140 DATA 36,36,36,36,3b,36,36,0,203, 255 
,203,36,36,36,36,36,36,36,36,211 

1150 DATA 0,0,0,0,0,0,0,0,203,255,203,0, 
0,0,0,0,0,0,0,211 

1160 DATA 0,0,0,0,0,0,0,0,0,255,0,0,0,0, 
0,0,0,0,0,211 

1170 DATA 143,143,143,143,143,143,143,14 
3,143,255,149,143,143,149,143,143,143,14 
3,143,211 

1160 DATA 0,0,0,0,36,36, 36,36, 203,255, 20 
3,0,36,36,36,36,36,36,36,211 

1190 DATA 0,0,0,0,0,0,0,0, 203,255,203,0, 
0,0,0,0,0,0,0,211 

1200 DATA 0,0,0,0,0,0,0,0,0,255,0,0,0,0, 
0,0,0,0,0,211 

1210 DATA 143,143,143,143,143,143,143, 14 
3,143,255,143,143,143,143,143,143,143,14 
3,143,211 

1220 DATA 36,36,36,0,0,36,36,36,203,255, 
203,0, 6,36, 36,36,3%6,36,36,211 

1230 DATA 0,0,0,0,0,0,0,0,203,255,203,0, 
0,0,0,0,0,0,0,211 

1240 DATA 0,0,0,0,255,0,0,0,0,255,0,0,0, 
0,0,0,0,0,0,211 

1250. DATA 143,143,143,143,255,143,143,14 
3,143,255,143,143,143,143,143,143,143,14 
3,143,211 

1260 DATA 36,36,36,203,255, 203, 36,36, 203 
255, 203,0, 36, 36,36, 36,36, 36,36,211 

1270 DATA 0,0,0,203,255,203,0,0,203,255, 
203,0,0,0,0,0,0,0,0,211 

1280 DATA 0,0,0,0,255,0,0,0,0,255,0,0,0, 
0,0,0,0,0,0,211 

1290 DATA 208, 208, 208, 208, 208, 208, 208, 20 
8,208, 208, 208, 208, 208, 208, 208, 208, 208, 20 
8,208,211 

1300 BORDER 0:d=0 

1310 FOR y=1 TO 24 

1320 FOR x=1 TO 20 

1330 READ a:1F a=143 OR a=208 THEN PEN 1 

ELSE IF a=255 THEN PEN 2 ELSE IF a=36 T 
HEN PEN 3 ELSE PEN O 

1340 LOCATE x,u:PRINT CHR$(a) 

1350 taZ(x,u)=a 

1360 NEXT x:NEXT y 

1370 PEN 1:LOCATE 6,25:PRINT tabl$:PEN 2 
:LOCATE 8,25:PRINT tableau 

1380 PEN B:LOCATE 11,25:PRINT pt$:LOCATE 
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13,25:PRINT score 
1390 x=11:y=11 :PEN S:LOCATE x,u:PRINT C 
HR$ (248) 
1400 x1=2:y1=15:PEN 4:LOCATE x1,ui:PRINT 
mo$ 
1410 PEN 5:LOCATE 1,25:PRINT vie$:LOCATE 
3,25:PRINT vie 
1420 m=0 :u=0:2=0:t=40 
1430 IF JOY(O)=4 OR INKEY(8)=0 THEN GOSU 
B 1510 
1440 IF JOY(0)=8 OR INKEY(1)=0 THEN G0SU 
B 1600 
1450 IF JOY(O)=1 OR INKEY(0)=0 THEN 60SU 
B 1690:G0T0 1490 
1460 1F JOY(D)=2 OR INKEY(2)=0 THEN GOSU 
B 1770:G0T0 1490 
1470 IF JOY(D)=16 OR INKEY(47)=0 THEN 60 
SUB 1860 
1480 GOSUB 2270 
1490 1F X=X1 AND Y=Y1 THEN GOTO 2870 
1500 GOTQ 1430 
1510 ? 
1520 ? À GAUCHE 
1530 ? 
1540 IF ta%(x-1,y)=203 OR tak(x-1,y)=143 
THEN RETURN 
1550 IF ta%(x,y+1)=32 THEN 2120 
1560 PEN 2:LOCATE X,V:1F TAZ(X,Y)C)0 THE 
N PRINT ech$ ELSE PRINT" * 
1570 X=X-1:IF X<1 THEN X=1 
1580 A$=CHR$(251):PEN S:LOCATE X,Y:PRINT 
A$ 
1590 RETURN 
1600 ? 
1610 ? A DROITE 
1620 ? 
1630 IF takix+1,u)=203 OR tal(x+1,uy)=143 
THEN RETURN 
1640 IF ta4(x,y+1)=32 THEN 2120 
1650 PEN 2:LOCATE X,Y:1F TAZ(X,Y) O0 THE 
N PRINT ech$ ELSE PRINT" * 
1660 X=X+1:1F X>19 THEN x=19 
1670 A$=CHR$(250) :PEN 5:LOCATE X,Y:PRINT 
A$ 
1680 RETURN 
1690 ? 
1700 * EN HAUT 
1710 IF ta%(x,y)<>255 THEN GOSUB 1930 
1720 IF TAX(X,Y-1)<€>255 THEN RETURN 
1730 PEN 2:LOCATE X,Y:PRINT ech$ 
1740 Y=Y-1 
1750 A$=CHR$(248):PEN S:LOCATE X, Y:PRINT 
A$ 
1760 RETURN 
1770 ? 
1780 ? EN BAS 
1790 ? 
1800 IF TAZ(X,Y+1)€>255 THEN RETURN 
1810 PEN 2:LOCATE X,Y:PRINT ech$ 
1820 Y=Y+1 
1830 A$=CHR$(248):PEN S:LOCATE X,Y:PRINT 
A$ 
1840 RETURN 
1850 ? 
1860 * TROUS 
1870 ? 
1880 IF u=23 OR x=1 OR x=19 OR z<>0 THEN 
RETURN 
1890 IF A$=CHR$(251) ANDitaktx-1,u) 7255 
AND ta%(x-1,u+1)<>204) THEN LOCATE X-1, 


Y+L: PRINT" ":TAZUX-1,Y+1)=92 :2= 

1900 1F A$=CHR$(250) AND(taL(x+1,u) (2255 
AND taZ(x+i,u+1)<>204) THEN LOCATE X+1, 

Y+L: PRINT" ":TAX(X+1,Y+1)=32:7=1 

1910 m=0 

1920 RETURN 

1930 

1940 * SAUT 

1950 

1960 IF TAX(X,Y)=255 THEN RETURN 

1970 FOR I=1 TO 2 

1980 LOCATE X,Y:PRINT * * 

1990 Y=Y-1 

2000 PEN 5:LOCATE X,Y:PRINT CHR$(24B) 

2010 NEXT 


‘2020 IF TAZ(X,Y)=36 THEN d=d+1 :SCORE=5C0 


RE+5:PEN 7:LOCATE 13,25:PRINT SCORE :TAX 
{X,Y)=0:1F d=77 THEN CLS:tableau=tableau 

+livie=viet{:score=score+50:1F tableau>4 
THEN 2950 ELSE GOTO 1300 

2030 ENT 1,50,2,2:S0UND 1,70,10,15,0,1:E 

NT 1,50,-2,2:SOUND 1,50,20,15,0,1 

2048 FOR i=1 TO 2 

2050 PEN 5:LOCATE x,y:PRINT" * 

2060 y=u+! 

2070 LOCATE x,y:PRINT CHR$(248) 

2080 NEXT 

2090 IF takix,y+1)=204 THEN GOSUR 2740 

2100 u=ut! 

2110 GOSUR 2270:RETURN 

2120 ? 

2130 *  CHUTE DANS LE TROU 

2140 ? 

2150 ENT 1,100,2,2:SOUND 1,150,30,15,0,1 
:SOUND 1,0,7,7,0,0,2 

2160 FOR i=0 TO 3 

2170 LOCATE x,y:1F TAX(X,Y)=36 THEN PEN 

S:PRINT CHR$(36) ELSE PRINT" * 

2180 y=y+! 

2190 LOCATE x,u:1F i=3 THEN PEN 5: PRINT 
tomb$ ELSE PEN 7: PRINT CHR$(248) 

2200 NEXT i 

2210 PEN 1:LOCATE x,y-3:PRINT CHR$(143) : 
taklx,y-3)=143 

2220 SOUND 1,500, 100, 15:SOUND 1,0,2:SOUN 

D 1,500,75,15:SOUND 1,0,2:SOUND 1,500,25 
,15:S0UND 1,0,2:SOUND 1,425, 75,15 : SOUND 
1,0,2:SOUND 1,450,25,15:SOUND 1,0,Z:S0UN 
D 1,450,75,15:S0UND 1,0,Z:SOUND 1,500, 25 
,15:S0UND 1,0,2:SOUND 1,500, 75, 15: SOUND 
1,0,2 

2236 SOUND 1,525,25,15:SOUND 1,0, 2: SOUND 
1,500, 100, 15 

2240 FOR i=1 TO 2000:NEXT i 

2250 LOCATE x,y:1F ta4(x,u)=255 THEN PRI 
NT ech$ ELSE PRINT" 

2260 GOTO 2930 

2270 

2280 * BESTIOLE A DROITE 

2290 ? 

2300 t=t+1:1F t<=40 THEN RETURN 

2310 IF ta%(x1,u1)=204 AND m<=2 THEN 605 
UB 2800 :RETURN 

2320 IF ta%(xl,yl-1)=255 AND ul>u THEN 6 
OSUB 2520:RETURN 

2330 IF ta%(xl,ul+1)=255 AND yl<y THEN 6 
OSUB 2600 :RETURN 

2340 IF TAZ(X1+1,Y1)=203 OR TAX(X1+1,V1) 
=143 THEN RETURN 

2350 IF taZ(xi,y1+1)=32 THEN 2670 





2360 1F y=ul AND x<xi THEN p=1 

2370 1F y=yl AND x>xi THEN p=0 

2380 1F p<>0 THEN 2430 

2390 PEN 2:LOCATE xt,ul:1F tak(xl,y1)=25 

5 THEN PRINT ech$ ELSE PRINT" * 

2400 xi=xl+1:1F x1219 THEN x1=19:p=l 

2410 PEN 4:LOCATE x1,yl:PRINT mo$ 

2420 RETURN 

2430 ? 

2440 *  RESTIOLE GAUCHE 

2450 ? 

2460 IF TAX(X1-1,Y1)=203 OR TAX(X1-1,Y1) 

=143 THEN RETURN 

2470 IF ta%(xi,uyl+1)=32 THEN 2670 

2480 PEN Z:LOCATE xl,ul:1F tak(xl,u1)=25 

5 THEN PRINT ech$ ELSE PRINT" * 

2490 xi=xi-1:1F x1<1 THEN x1=1:P=0 

2500 PEN 4:LOCATE x1,yl:PRINT mo$ 

2510 RETURN 

2520 ? 

2530 * BESTIOLE HAUT 

2540 ? 

2550 IF yi=y THEN 2600 

2560 PEN 2:LOCATE xl,ul:1F taX(xl,ul)=25 

5 THEN PRINT ech$ ELSE PRINT" * 

2570 yl=yi-1 

2580 PEN 4:LOCATE x1,yl:PRINT mo$ 

2590 RETURN 

2600 ? 

2610 *  BESTIOLE EN BAS 

2620 

2630 PEN 2:LOCATE xi,yl:1F ta(xl,y1)=25 

5 THEN PRINT ech$ ELSE PRINT" * 

2640 yl=yi+i 

2650 PEN 4:LOCATE x1,uJ:PRINT mo$ 

26bD RETURN 

2670 

2680 *  BESTIOLE DANS TROU 

2690 

2700 LOCATE x1,yl:PRINT® * 

2710 ul=yi+1:PEN 4:LOCATE x1,ul:PRINT mo 

$itak(x1,y1)=204 

2720 SOUND 1,1000,30,7,0,0,9 

2730 RETURN 

2740 ? 

2750 *  BESTIOLE ENFERMEE, 

2760 ? 

2770 m=mtl 

2780 IF m>=2 THEN PEN 1: LOCATE x,y+i:PR 
INT CHR$(143):ta%(x,u+1)=143 :x1=1:y1=15 
:u=0:2=0:t=0:m=0: SCORE=SCORE+1 : PEN 7:LOC 

ATE 13,25:PRINT SCORE 

2790 RETURN 

2600 

2810 * BESTIOLE BOUCHE TROU 

2820 ? 

2830 uzuti 

2840 IF u<14 THEN RETURN ELSE SOUND 1,50 
,10,7,4,1,1:SOUND 1,0,10,7,0,0, 15:LOCATE 
x1,y1:PRINT mo$ita%(xl,y1)=143:u1=ul-1: 

PEN 4:LOCATE xi,uyl:PRINT mo$:PEN 1 :LOCAT 

E x1,uyi+{:PRINT CHR$(143) 

2850 u=0:z=0 

2860 RETURN 

2870 ? 

2880 ? bonhomme mange 

2890 

2900 ENT 1,100,2,2:SOUND 1,100,100,15,0, 

l 

2910 LOCATE X1,Y1:PEN B:PRINT mo$ 


2920 FOR 1=1 TO 1000:NEXT 

2930 PEN 2:LOCATE X1,Y1:1F TAX(X1,Y1)=25 
5 THEN PRINT ech$ ELSE PRINT" * 

2980 VIE=VIE-1:1F VIE=0 THEN 2950 ELSE 6 
OTO 1390 

2950 ? 

2960 ? SCORE 

2970 ? 

2980 FOR 1=1 TO 100:NEXT:CLS 

2990 IF score>meilleurscore THEN 3090 
3000 PEN B:LOCATE 4,1:PRINT'MEILLEUR SCO 
RE" 

3010 PEN 4:LOCATE 9,7:PRINT MEILLEURSCO 
RE 

3020 PEN 6:LOCATE 6,12:PRINT"VOTRE SCORE 


3030 PEN 1:LOCATE 9, 16:PRINT SCORE 
3040 PEN 7:LOCATE 6, 24:PRINT'UNE AUTRE ? 
3050 R$=INKEYS 

3060 1F R$="0" OR R$="0" OR JOY(D)=16 TH 
EN SOUND 1,50, 10,7:RESTORE :CLS:G0T0 210 


3070 IF r$="n" OR r$="N" THEN ENT 1,100, 
2,2:S0UND 1, 106,50, 15,0, L:HODE 1 :END 


3080 GOTO 3050 

3090 

3100 ? MEILLEUR SCORE 

3110 ? 

3120 MEILLEURSCORE=SCORE 

3130 GOTO 3000 

3140 ? 

3150 ’ PRESENTATION 

3160 ? 

3170 PEN 1 

3180 M$="C. MATHIS" 

3190 n$="presente” 

3200 FOR X=1 TO LENIM$) 

3210 FOR Y=15 TO 5 STEP -1 

3220 LOCATE X+6,Y:PRINT CHR$(248) 

3230 FOR Rei TO 5:NEXT R 

3240 LOCATE X+6,Y:PRINT " ? 

3250 IF Y=5 THEN PEN x:LOCATE X+6,Y+1:PR 
INT MID$(M$,X,1):BORDER x 

3260 NEXT Y 

3270 ENT 1,50,2,2:S0UND 1,70,10,15,0,1:E 

NT 1,50,-2,2:SOUND 1,50,20,15,0,1 

3280 NEXT X 

3290 ENT 1,100,-2,2:SOUND 1,100, 100, 15,0 
f 

L 

3300 FOR x=1 TO LEN(n$) 

3310 LOCATE x+b,20:PRINT CHR$(251):FOR i 

=1 TO 100:NEXT i:LOCATE x+b,20:PRINT MID 

$n$,x, L):NEXT x: 

3320 FOR i=1 TO 2000:NEXT i:CLS 

3330 ENT 1,100,-2,2:SOUND 1,200, 150, 15,0 
l 

, 

3340 PEN 8: LOCATE 7,13:PRINT"DOLLARS" 

3350 FOR 1= 90 TO 40 STEP -1 

3360 ENT 1,50,-2,2:SOUND 1,i,5,15,0,1 


3370 NEXT 1 

3380 FOR 1= 1 TO ZOD:NEXT I 

3390 CLS 

3400 SOUND 1,100, 10,7 

3410 PEN 5:LOCATE 6,10:PRINT"Voulez vous 
":LOCATE 2,12:PRINT'les regles du jeu ?* 
:LOCATE 8,14:PRINT" (O/N)" 

3420 R$=INKEY$ 


3430 IF R$="0" OR R$="o" THEN SOUND 1,50 


,10,7:G0T0 3460 

3440 IF R$='N" OR R$="n" OR JOY(D)=16 TH 
EN SOUND 1,200, 10, 7:CLS:RETURN 

3450 GOTO 3420 

3460 * 

3470 ? REGLES DU JEU 

3480 * 

3490 BORDER O:MODE 1 

3500 PEN 1:LOCATE 14,2:PRINT'REGLES DU J 
EU‘ 

3510 PEN 2:PRINT:PRINT :PRINT : PRINT : PRINT 


:PRINT'Vous vous trouvez dans les caves 


d’un" 

3520 PRINT'chateau ou sont entasses des 
dollars" 

3530 PEN 1:PRINT'Mais vous n’etes pas gr 
and et pour les” 

3540 PRINT'attraper vous devrez sautez e 
n evitant* 

3550 PRINT'de vous faire devorer par la 
bestiole" 

3560 PRINT'qui vous poursuit...!" 

3570 PEN 3:PRINT'Pour vous proteger de 1 
a bestiole vous" 

3580 PRINT"pouvez percer un trou dans le 
plancher" 

3590 PRINT'a l’aide du "bouton de feu’ d 

u jou." 

3600 PRINT'Quand la bestiole sera dans 1 

e trou” 

J610 PRINT"sautez lui rapidement deux fo 

is dessus”* 

3620 PRINT'-(maintenir le joy.en haut pe 

ndant 2° 

3630 PRINT'sauts)-pour l’enterrer,sinon 

elle” 

J640 PRINT'bouchera le trou et vous fonc 

era dessus” 

3650 LOCATE 29,25:PRINT" (tapez ’C’)° 

3660 IF INKEY(62)=0 THEN CLS ELSE GOTO 3 

660 

3670 SOUND 1,50,10,7:PEN 2:PRINT:PRINT:P 

RINT:PRINT:PRINT"Sachez que vous ne pouv 

ez pas faire de 

3680 PRINT'trou sous les echelles,ou au 

dessus des* 

3690 PRINT'echelles ni tout au fond de 1 

a cave" 

3700 PRINT'Quand un trou est fait il fau 

t attendre quela bestiole le rebouche po 

ur pouvoir en faire un autre” 

3710 PRINT'Vous etes plus rapide que la 

bebete pour monter et descendre mais mef 

iez vous elle est tres rapide pour sorti 

r du trou” Ê 

3720 PRINT'Enfin,si vous tombez dans le 

trou vous perdez une vie" 

3730 PEN 1:PRINT'Notez:11 y aura 4 table 

aux:{ dollar=Spts:la bebete enfermee={pt 

:chaque tableau=1 vie supp.+50 pts” 

3740 PEN 3:PRINT'Ce jeu ce joue avec un 

joystick ou avec" 

3750 PRINT'les touches du curseur.Si vou 

s utilisez ces touches faites les trous 

avec la * 

3760 PRINT'barre ESPACE?" 

3770 LOCATE 29,25:PRINT" (tapez ?C')° 

3780 IF INKEY(62)=0 THEN SOUND 1,100, 10, 

7:MODE O:RETURN ELSE GOTG 3780 1 
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Philippe DEMOULE 


oici un programme qui ravira les amateurs de graphismes. 
Sa longueur est due aux 151 caractères redéfinis configurant, 
entre autres, l’alphabet minuscules géants, ainsi qu'aux 
graphismes utilisant une technique de dessin animé que les intéres- 





sés pourront aisément décortiquer. 





ABC est un logiciel de pré-apprentissage 
de la lecture testé sur la tranche d'âge 
des 3 à 6 ans. Il permet de familiariser 
aux minuscules les enfants connaissant 
déjà les majuscules. L'efficacité est 
garantie. L'ergonomie générale a été par- 
ticulièrement étudiée afin d'éviter la las- 
situde, et les bruitages n'ont pas été 
délaissés. 

‘’Apprentissage Niveau 1'' permet une 
familiarisation et ‘Apprentissage Niveau 
2'' permet d'exercer les connaissances. 
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Les trois niveaux de difficulté correspon- 
dent à trois listes de mots comportant 
des lettres plus ou moins difficiles. L'en- 
fant fera correspondre les minuscules 
aux majuscules en un temps record. 
Le fonctionnement est simple. Deux 
commandes suffisent qui sont rappelées 
par l’appui sur la barre d'espacement. 
Les réponses fausses sont traitées (dure- 
ment), et les réponses exactes récom- 
pensées par une sucrerie… 


TABLEAU DES VARIABLES 


ALPHA$(26) minuscules géantes 

BONB$ partie basse du bonbon 

BONH$ partie haute du bonbon 

MARTO1$ marteau vertical 

MARTO2$ marteau horizontal 

EFFMARTO2$ efface marteau horizon- 
tal 

EPONGES éponge sur tableau noir 

EFFEP1$ efface éponge du 
tableau 

EPONGE2$ éponge dans la boîte 

GOMMES$ efface minuscules géan- 
tes ou marteau vertical 

XBON coordonnée x du bon- 
bon 

YBON coordonnée y du bon- 
bon 

SP(=1 ou 2) indique si apprentissage 
niveau 1 ou 2 

MOT $ mot à copier 

MALUS égal O si pas d'erreur 
égal 1 si erreur 

R(O à 9) compteur de lettres 

CAR1 

CAR2 éclats de la lettre 

CAR3 martelée 

CAR4 





AO HMERKRRERIMMERRRERERR RER EEREER 

20 HHHHHHHNNNEE ABC HAE 

30 *#### PREAPPRENTISSAGE DE LA ### 

O0 HFFEFFHINNE LECTURE #HH##HHttt 

50 ?##+ VERSION 1.1 - AOÛT 198b #** 

60 *###4” COPYRIGHT PH.DEMOULE ###4x 

70 HAINE 

80 * 

90 ? 

100 ? 

110 DIM alpna$(26) 

120 MODE 1:RORDER 12 

130 INK D,24:INK 1,24: INK 2,24:INK 3.24: 
PAPER 1:PEN O:PAPER#1,0:PEN#1, 1: CLSHO:FA 
PER#2.0:PEN#2, 1 : PAPERAS, 1: PEN#S, | 

140 WINDOW#1,5,27,2,17:CLS#1 

150 WINDOW#2Z,24,35,2,17:CLS#2 

160 WINDOW43,37,30,2,19:CLS#3 

170 WINDOW#4,29,20, 13, 18: PAPER#4, D: PENK4 
.1:CLS#é 











IUTRE TITI SSII IIS III LLLS LES SC S SES 
20 HIER ABC RENE 

30 **#### PREAPPRENTISSAGE DE LA ### 

DO HAINE LECTURE HIHI 

50 *### VERSION 1.1 - AOÛT 1986 ##+ 

60 *#### COPYRIGHT PH.DEMOULE ####4# 

70? ANNE 

80 , 

90 ?, 

100 ? 

110 DIM alpha$(26) 

120 MODE 1:BORDER 12 

130 INK D,24:INK 1,24:INK 2,24:INK 3,24: 
PAPER 1:PEN O:PAPER#1,0:PEN#1, 1 :CLS#D:PA 
PERR2, 0: PEN#2, 1 : PAPERS, 1: PEN#S, 1 

140 MINDOW#1,5,27,2.17:CLS#1 

150 WINDOW#2,24,35,2,17:CL5#2 

160 WINDOW#3,37,39,2,19:CL5#3 

170 WINDOW#4, 29,30, 13, 16:PAPER#4, 0: PENN4 
.1:CL5#4 

180 ?*-—----DESSIN CADRES, BUREAUX, BOITE 

À EPONGE— 

190 PLOT 54,120,0:DRAW 568, 120:DRAW 568, 
390:DRAW 54,390:DRAW 54,120 

200 PLOT 2,2:DRAW 636,2:DRAW 636, 396:DRA 
W 2,396:DRAW 2,2 

210 PLOT 4,20,0:DRAN 10,20:PLOT 96,20:DR 
AW 140,20:PLOT 240,20:DRAW 260,2:PLOT 38 
0,2:DRAW 41D,20:DRAW 458,20:PLOT 540,20: 
DRAH 610,20:DRAW 630, 2 

220 PLOT 568,120,0:DRAW 568,90:DRAW 630, 
90:DRAW 630,390:DRAW 568, 390 

230 PLOT 340,54,0:DRAW 340,44:DRAW 300,4 
4:DRAW 300,54 

240 *——-—---DESSIN CORBEILLE PAPIERS—- 


250 ?——- CREATION DE L'EPONGE---—— 
260 SYMBOL AFTER 97 

270 SYMBOL 237,0,0, 16, 40, 34, 66, 65, 129 
280 SYMBOL 236,0,0,0, 0,63, 64, 64, 128 

290 SYMBOL 235,0,0,0,0, 252, 2, 2,1 

300 SYMBOL 234,0,0,0,0,4, 10,97, 194 

310 SYMBOL 233,160,216,32, 194, 144,169, 16 
2,92 

320 SYMBOL 232, 128, 128, 160, 159, 128, 128, 6 
4,63 

330 SYMBOL 231,1,1,1,255,1,2, 2, 252 

340 SYMBOL 230,5, 18,9, 134,68, 34, 18, 12 
350 BONBS=CHRS ( 233) +CHRS (232) +CHRS (231 )4 
CHR (230) 

360 BONHS=CHRS (237 )+CHRS (236 ) +CHRS (235 )+ 
CHRS (234) . 

370 SYMBOL 250,0, 126, 102, 103, 127, 124,76, 
79 

380 SYMBOL 251,1,125,101, 229,253, 253, 205 
205 

, 

390 SYMBOL 252,127, 121,25,31, 127,115, 115 
63 

400 SYMBOL 253,253, 253, 253, 205, 205, 253, 2 


49,153 

410 SYMBOL 254,63,124,124,79,79,124,124, 
0 

420 SYMBOL 255,157,253,241,241,253, 205,2 
05,1 AE 

430 SYMBOL 249,255,255, 255,255, 255, 255,2 
55,255 

440 SYMBOL 248,255,255, 255, 255, 255,255, 2 
,2 ‘ | 

450 SYMBOL 247,128,192,224,255,255,255,6 
4,64 

460 SYMBOL 246,2,2,2,2,2,2,2,2 

470 SYMBOL 245,64,64,64,64,b4,64,b4,b4 
480 SYMBOL 244,2,2,2,2,2,2,2,3 

490 SYMBOL 243,64,64,64,64,b4,b4,64,192 
500 SYMBOL 242,0,0,0,0,0,255, 128,128 
510 SYMBOL 241,0,0,0,0,0,255,0,0 

520 SYMBOL 240,63,63,63,63,63,255,63,63 
530 SYMBOL 239,255,0,0,0,0,0,0,0 

540 SYMBOL 238,255,62,60,56,56,56,56,56 
550 MARTO1$=CHR$ (248) +CHR$(247)+CHR$(10) 
+CHR$(B)+CHR$(B)+CHR$(246)+CHR$ (245 )+CHR 
$(10)+CHR$(B)+CHR$(B)+CHRS (244 )+CHR$ (243 
) | 

560 MARTOZ$=CHR$(242)+CHR$ (241 )+CHR$ (240 
)+CHR$(10)+CHR$(B)+CHR$(B)+CHR$(8)+CHRS( 
239)+CHR$(239)+CHR$ (238) 

570 EFFMARTO2$=CHR$ (32) +CHR$(32)+CHR$ (32 
)+CHR$(10)+CHR$(B)+CHR$(B)+CHR$(B)+CHRS( 
32)+CHR$(32)+CHR$ (32) 

580 EPONGE$=CHRS (249)+CHR$ (250) +CHR$(251 
)+CHR$(10)+CHR$(B)+CHR$(8)+CHR$(B)+CHRS( 
249)+CHR$(252)+CHR$(253)+CHR$ (10) +CHR$(B 
)+CHR$(8)+CHR$(B)+CHR$(249)+CHR$(254)+CH 
R$(255)+CHR$(11)+CHR$ (11) 

590 EFFEP1$=CHR$(249)+CHR$(249)+CHR$ (10) 
+CHR$(B)+CHR$(B)+CHR$(249)+CHR$ (249) +CHR 
$(10)+CHR$(B)+CHR$(B)+CHR$ (249) +CHR$ (249 
)+CHR$(11)+CHR$(11} 

600 EPONGE2$=CHR$ (250) +CHR$ (251 )+CHR$(10 
)+CHR$(B)+CHR$(B)+CHR$(252)+CHR$(253)+CH 
R$(10)+CHR$(B)+CHRS(B)+CHR$(254)+CHR$ (25 
5) 

b1D LOCATE 20,20:PRINT CHR$(24);:PRINT E 
PONGE2$ ; : PRINT CHR$(24) 

620 *————-DESSIN DU DECOR EN ENCRE INV 
ISIBLE PUIS CHANGEMENT D’ENCRE ET PRESEN 
TATION DU SOFT-—- 

630 ORIGIN O,-48:K=0:60SUB 1420:0RIGIN 1 
J0,-48:K=1:G0SUB 1420:0RIGIN 450,-20:RES 
TORE 1630:60SUB 1630:0RIGIN 0,0:PLOT 400 
50,1:DRAW 648,0:0RIGIN 130,-48:G0SUR 166 
0:0RIGIN 0,0:INK O,1:INK 2,1 

640 LOCATE#1,3,2 :PRINT#1," PHILIPPE DEMO 
ULE" 

650 LOCATE#1,7,4:PRINT#1, "PRESENTE* 

6bO LOCATE#1,2,11:PRINT#i, "LOGICIEL EDUC 
ATIF® | 

670 LOCATE#1,10,13:PRINTH{, "DE" 

680 LOCATE#1,7,15:PRINT#1,"3 À 6 ANS" 
690 CREATION DES MINUSCULES GEAN 
TES—— 

700 RESTORE 970 

710 FOR n=1 TO 52 

720 READ numero, a,b,c,d,e,f,g,h 

730 SYMBOL numero, a,b,c,d,e,f,g,h 

780 NEXT n 

750 2=92 

760 FOR n=1 TO 13 

T0 2=2+4 


780 alpha$(n)=CHR$(z+1)+CHR$(z+2)+CHRS (1 
D)+CHRS(B)+CHRS(B) +CHRS (243) +CHRS 1 244)+C 
HR$(11) 

790 NEXT n 

800 RESTORE 1110 

810 FOR N=1 TO 78 

820 READ NUMERO, À,B, C,D,E,F,6,H 

830 SYMBOL NUMERO, A,B,C,D,E,F,6,H 

840 NEXT N 

850 Z=142 

860 FOR N=14 TO 19 

870 2=2+6 

880 ALPHAS(N)=CHRS(11)+CHR$ (241 )4CHRS (24 
2)4CHR$(10)+CHR$(B)+CHRS (B)+CHR$(243)4CH 
RS(Z+4)+CHRS(10)+CHRS(B)4CHRS(B)+CHRS (24 
S)+CHRS(Z+6)+CHR$ (11) 

890 NEXT 

900 RESTORE 1180 

910 FOR N=20 TO 26 

920 2=2+b 

930 ALPHAS(N)=CHRS (241 )+CHRS(2+2)+CHR8 (1 
D)+CHRS(BD+CHRS(B)+CHRS(Z43)4CHRS (2+4)4C 
HRS(10)+CHRS(B)+CHRS(B)+CHRS(Z45)+CHR$(Z 
+6)+CHRS(11)+CHRS (11) 

940 NEXT 

950 LOCATE#1,B, 7:PRINT#1, ALPHAS (1 ) ;ALPHA 
$(15) ;ALPHAS (2) 

QD ?-———-""|"{#TTRES 4 CARACTERES 


970 DATA 97,0,0,3,4,8,8,16,16, 98,0,0,1 
92,32,16,16,16,16,  99,32,32, 32, 32,96, 14 
7,12,0, 100,48, 48, 80, BD, 144,9, 6,0 

980 DATA 101,0,0,3,4,8,8,16,16, 103,32, 
32,32,32,112,136,7,1, 102,0, 128,96, 16,8 
,0,0,0, 104,0,0,0,1,6,24,96, 128 

990 DATA 105,0,3,12,16,32,32,32,32, 106 
,0,224,16:B,4,454,12,  107,32,32,19,124, 
16,12,3,0,  108,24,48, 192,0,3,60, 192,0 
1000 DATA 109,1,1,0,1,1,1,1,1, 110,0,0, 
0,0,0,0,0,0, 111,3,5,9,17,33,64,128,0, 
112,0, 0,0, 1,2, 132, 120,0 

1010 DATA 113,32,80, 80,63, 16,16, 16,16, 
114,16,32,224,32,32,64,64,64, 115,16, 32 
,32,32,64,128,0,0,  116,64,32, 32,32, 16,1 
7,14,0 

1020 DATA 117,0,99,14B,136,136,8,8,8, 1 
18,0,24,164,66,66,b6, 68,66,  119,8,8,8,8 
.8,8,8,0, 120,66,66,66,6b, 66,66, 85, D 
1030 DATA 121,0,0,0,0,1,2,2,4, 122,0,64 
.64,128,64,64,32,32, 123,B,8, 16,132,32,6 
4,128,0, 124,16,8,4,4, 132,68, 60,0 
1040 DATA 125,3,12,8,8,16,16,16,32, 126 
.196,56,16,16,8,8,8,4, 127,32, 32, 48,80, 
136,4,3,0, 128,4,4,8,8, 16,32, 192,0 
1050. DATA 129,0,8,8,24,24,24,40, 40, 130 
.0,8,8,8,8,8,8.B, 131,40,72,72,72,132,1 
34,10, 132,8.8,8,8,21,53,198,0 

1060 DATA 133,0,48,72,136,8,8,8,B, 134, 
6,9,8,8,8,8,8,8, 135,8,8,8,8,4,6, 1,0, 
136,8,8,8,8, 16,48, 192,0 

1070 DATA 137,0,48,75,140,B,8,8,8, 138, 
0,192,48,8,8,8,8,8,  139,8,8,8,8,8,8,8,0 
, 140,8,8,8,8,9,10,4,0 

1080 DATA 141,32,80,144,16,16,16, 16, 16, 
142,1,2,132,132,132,132,132,132, 143,8 
.8,8,8,8,5,2,0, 144,136,136,136,136, 136 
.80,32,0 

1090 DATA 145,56,68,130,1,1,1,1,1, 146, 
56,68,130,0,0,0,0,0, 147,1,1,1,1,130,68 
.56,0, 148,0,0,0,0, 130,68, 56,0 
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1100 ?—————1#TTRES 6 CARACTERE 
5 (HAUT) 

1110 DATA 149,0,3,4,4,4,8,8,8, 150,0, 19 
2,32,32,32,32,32,32, 151,8,8,8,8,8,8; 9 
10, 152,32,64,64,64,128,128,0,0, 153,1 
0,4,12,52,100,130,1,0, 154,0,0,0,0,3,28 
,224,0 

1120 DATA 155,0,1,2,2,4,4,4,4, 156,0, 19 
2,32,16,16,16,16,16, 157,4,4,4,4,4,5,6, 
4, 158,32,32,64,64,128,0,34,84, 159,12 
,20,36,68,130,2,1,0, 160,88,48, 16, 16, 16 
,32,192,0 

1130 DATA 161,0,1,2,2,4,4,4,4, 162,0, 19 
2,32,16,16,16,16,16, 163,4,4,4,4,4,5,6, 
4, 164,32,32,64,64,128,0,0,0, 165,13,2 
2,26,68,132,4,4,0, 166,192,32,16,16, 18, 
20,8,0 

1140 DATA 167,0,1,2,2,4,44,4, 168,0,19 
2,32,16,16,16,16,16, 169,4,4,4,4,4,5,6, 
4, 170,32,32,64,64,128,0,0,0, 171,13,2 
2,36,68,132,4,4,0, 172,192,32,16,112, 14 
4,148, 104,0 

1150 DATA 173,1,1tt414 


7,1,1, 174,0,0, 
0,0,0,252,0,0, 175,1,11,1,1 
9,1 


nn EL 
6,0,0,0,0,0,0,0,0, 177,9,17,33,65, 12841 
0,0, 178,0,0,0,1,2,4,136,112 

1160 DATA 179,1,1,1,1t,14151, 180.0, 
0,0,0,0,0,0, 181,1,1,1,1,1,1429,35, 18 
2,0,0,0,0,0,0,0,0, 183,65,65,129, 129, 12 
9,65,66,60, 184,0,0,0,1,2,4,136,112 
1470? {"#TTRES 6 CARACT 


: 
; 
7 
1 


4 
1 
l 


“ERES (BAS) 


20 


1180 DATA 185,0,0,0,1,2,2,4,4, 186,0,0, 
176,200,136,132,132,132, 187,8,16,32,64 
,128,0,0,0, 188,132,132,120, 131,128, 128 
,128,128, 189,0,0,0,0,0,0,0,0, 190,128 
,128, 128, 128, 128, 128, 128,0 

1190 DATA 191,0,0,1,2,2,2:2,2, 192,96,1 
44,8,8,4,4,8,8, 193,2,2,2,2,7,10,50, 194 
, 19%,16,32,64,128,248,128,64,32, 195, 
2,2,2,2,2,2,2,1, 196,16,8,8,8,8, 16, 16,2 
24 

1200 DATA 197,7,8,16,32,32,32,64,64, 19 
8,128,96,32,32,16,16,16,16, 199,64,64,3 
2,32,80,154,15,0, 200, 16,16, 16,48, 80, 20 
8,144,16, 201,0,0,0,0,0,0,0,0, 202,16, 
16,16,16,16,16,16, 16 

1210 DATA 203,7,8,16,32,32,32,64,64, 20 
4,128,96,32,32,16,16,16,16, 205,64,64,3 
2,32,80,154,15,0, 206,16, 16,16, 50, 100, 2 
16,176,80, 207,0,1,2,4,4,4,2,1, 208,14 
4,16,16,16,16, 1,32, 192 

1220 DATA 209,0,0,0,32,32,32,32,32, 21 
0,0,0,0,16,16,16,16,16, 211,32,32, 32,32 
,80,154,15,0, 212,16, 16,16,50, 100,216, 1 
76,80, 213,0,1,2,4,4,4,2,1, 214,144,16 
,16,16,16, 16,32, 192 

1230 DATA 215,0,0,0,0,0,1,2,2, 216,16,4 
8,80,80,144,16,16,16, 217,4,B,16,32,64, 
128,0,0, 218,16,16,16,18,20,24,48,80, 

219,0,1,2,4,4,4,2,1, 220,144,16,16,16,1 
6,16,32, 192 

1240 DATA 221,31,16,32,32,64,65, 130,3, 

222,248, 16,32,64,128,0,0,196, 223,0,0,0 
,0,0,1,2,2, 224,40,16,40,72,136,8,4,4, 
225,4,4,8,8,4,4,2,1, 226,4,4,8,8, 16, 16 
,32,192 

1250 ?--—---CREATION DE LA GOMME------- 


1260 GOMME$=CHRS(11)+CHR$(32)+CHR$(32)+C 


HR$(10)+CHR$(8)+CHR$(8)+CHR$(32)+CHR$ (32 
)+CHR$(10)+CHR$(B)+CHR$(8)+CHR$(32)+CHR$ 
(32)+CHR$(10)+CHR$(8)+CHR$(8)+CHR$(32)+C 
HR$(32)+CHR$(11) 

1270 GOSUB 1280:X=1:Y=2:G0TO 1760 

1280 ?’-————-EFFACEMENT TABLEAU PRESENTA 
TN SOFT—— 

1290 GOSUB 1740 

1300 LOCATE 20,20:PRINT GOMMES$ 

1310 FOR X=5 TO 21:LOCATE X,J:PRINT EPON 
G$::FOR TP=1 TO 1O0:NEXT TP:NEXT X:LOCA 
TE 22,3:PRINT EFFEPI1$ 

1320 FOR X=5 TO 21:LOCATE X,7:PRINT EPON 
GE$::FOR TP=1 TO 1O0:NEXT TP:NEXT X:LOCA 
TE 22,7:PRINT EFFEPI$ 

1330 FOR X=5 TO 21:LOCATE X,10:PRINT EPO 
NGE$;:FOR TP=1 TO 1OD:NEXT TP:NEXT X:LOC 
ATE 22,10:PRINT EFFEPI$ 

1340 FOR X=5 TO 21:LOCATE X,14:PRINT EPO 
NGE$::FOR TP=1 TO 1DD:NEXT TP:NEXT X:LOC 
ATE 22,14:PRINT EFFEP1$ 

1350 ?FOR X=5 TO 21:LOCATE X,2:PRINT EPO 
NGE$:;:FOR TP=t TO 100:NEXT TP:NEXT X:LOC 
ATE 22,2:PRINT EFFEPI$ 

1360 *FOR X=5 TO 21:LOCATE X,7:PRINT EPO 
NGE$;:FOR TP=1 TO 1O0:NEXT TP:NEXT X:LOC 
ATE 22,7:PRINT EFFEPI$ 

1370 ?CFOR X=5 TO 21:LOCATE X,I0:PRINT E 
PONGE$:; :FOR TP=1 TO 1OO:NEXT TP:NEXT X:L 
OCATE 22,10:PRINT EFFEP1$ 

1380 ?FOR X=5 TO 21:LOCATE X,15:PRINT EP 
ONGE$;:FOR TP=1 TO 10D:NEXT TP:NEXT X:LO 
CATE 22,15:PRINT EFFEPI$ 

1390 LOCATE 20,20:PRINT CHR$(24) ; : PRINT 
EPONGE2$; : PRINT CHR$(24) 

1400 60SUB 1740 

1410 RETURN 

1420 ?——— DESSIN ENFANTS ————— 
1430 RESTORE 1530:C=0 

1440 READ XA,YA 

1450 IF XA=888 THEN RETURN 

1460 IF XA=777 THEN IF K=0 THEN C=0:READ 
XA,YA:PLOT XA,YA,C ELSE C=2:READ XA, YA: 
PLOT XA,YA,C 

1470 IF XA=bb6 THEN C=0:READ XA,YA:IF XA 

=999 THEN 1440 

1480 PLOT XA,YA,C 

1490 READ X,Y 

1500 1F X=999 THEN 1440 

1510 DRAW X,Y 

1520 GOTO 1490 

1530 DATA 10,50, 20,60, 16,64, 14,64, 10, 60, 
12,66,15,74,24,80,28,76,2b,65,30, 60, 20,6 
0, 999,999 

1540 DATA 20,76,17,78,20,85,17,92,22,94, 
26,88,30,91,33,88, 33, 80, 28, 76, 999, 999 
1550 DATA 23,90,24,95,20,116,22,120,22,1 
40,999, 999 

1560 DATA 26,88,28,95,24,116,22, 120,999, 
999 5 

1570 DATA 18,115,14,120,17,130, 15,140, 22 
,140,30, 144,32, 140,930, 136,30,125,34,122, 
24,116,999,999 

1580 DATA 30,144,34,150, 40, 154,50, 158, 60 
,160,74,156,81,148,82,144,78,146,74,148, 
73,144,72,139,66,130,68, 124,64, 122,0, 12 

6,56,124,58, 120,60, 116,58, 108,54, 104,50, 
108,36, 100,40, 106,30, 110, 28,118, 999, 999 
1590 DATA 80, 145,80, 138, 78, 136,80, 132,84 
,130,82,126,85,124,82,122,84,120,82,118, 


80,114, 78, 110,70, 108,67, 111,64, 104,58, 10 
2,50, 100, 40, 90, 33, 80, 999, 999, 777, 777 
1600 DATA 66, 100, 76, 90, 96,88, 102,82, 110, 
84,113, 77, 106,72, 102, 74, 100, 72,84, 70,80, 
74, 74,72, 60, 80, 999,999, bbb, bb, 999, 999 
1610 DATA 90,70, 115,52, 999, 999 

1620 DATA 75,132, 999, 999, 888, 888 

1430 DATA 10, 10, 30,0, 30, 50, 10,60, 10, 10,9 
99,999, 20, 10, 20, 50, 999, 999, 30, 50, 30, 60, 2 
8,65, 26, 70,24, 75,22, 78, 20, 80, 18, 78, 16,76 
.14,74,12,70, 10,60, 999,999, 30, 40, 35,35, 9 
0,70, 90, 100, 88, 104, 84, 108, 80, 110, 20, 80,9 
99,999, 30,0, 88, 40, BB, 68, 799, 999 

1640 DATA 30,84, 32, 92, 60, 108, 62, 104,34,8 
2,36.90,56, 104,56, 102,999, 999, 45, 36, 52, 4 
0,52, 52, 45,50,45, 36,999, 999, 75,56, 82, 60, 
82, 70.75.68, 75, 56,999, 999, 888, 888 

1650 C=0:60T0 1440 

1660 RESTORE 1600:'DATA BRAS D'ORIGINE 
1670 READ XA, YA 

1680 PLOT XA, YA, 3 

1690 READ X,Y 

1700 IF X=999 THEN RETURN 

1710 DRAW X,Y#15,3 

1720 G0TO 1690 
1730 *— 
1740 FOR Net TO IO:IK 2,24:INK 3, 1:FOR 
TP=1 TO 1OO:NEXT TP: INK 2,1: INK 3,24:FOR 
TP=1 TO 100:NEXT TP:MEXT N:INK 2, 24: INK 
3,1:FO0R TP=1 TO SOO:NEXT TP: INK 2, 1: INK 
3,24:FOR TP=1 TO SOU:MEXT TP 

1750 RETURN 

1760 ?———-MENU PRINCIPAL — 
1770 XBON=5 

1780 YBON=15 

1790 CLSH1 : CLSH2 

1800 PRINT CHR$(24) 

1810 LOCATE 12,3:PRINT "MENU PRINCIPAL" 
1820 LOCATE 6,B:PRINT "APPRENTISSAGE NIV 

EAU 1. 1" 

1830, LOCATE 6, 10:PRINT "APPRENTISSAGE NI 

VEAU 2 .… 2" 

1840'LOCATE 14,16:PRINT “VOTRE CHOIX * 


MOUVEMENT DU BRAS-----— 


* 1850 IF INKEY(b4)=0 OR INKEY(13)=0 THEN 


SP=1:G0T0 1860 ELSE IF INKEY(65)=0 OR IN 
KEY(14)=0 THEN SP=2:G0T0 1860 ELSE 1850 


1870 PRINT CHR$(7):CLS#1 : CLSN2 

1880 LOCATE 10,4:PRINT "ETUDE DES MINUSC 
ULES" 

1890 LOCATE 10,7:PRINT "NIVEAU DE DIFFIC 
ULTE" 

1900 LOCATE 14,10:PRINT "FACILE... 1° 
1910 LOCATE 14,11:PRINT "MOYEN 

1920 LOCATE 14,12:PRINT "DIFFICILE... 3" 
1930 LOCATE 13,16:PRINT "VOTRE CHOIX 7° 
1940 PRINT CHR$(24) 

1950 IF INKEY(64)=0 OR INKEY(13)=0 THEN 
RESTORE 2000 ELSE IF INKEY(65)=0 OR INKE 
Y(14)=0 THEN RESTORE 2020 ELSE IF INKEY( 
57)=0 OR INKEY(5)=0 THEN RESTORE 2040 EL 
SE 1950 | 

1960 CLS#1:CL5#2 

1970 ?---——— — JEU MINUSCULES-——— 


1980 PRINT CHR$(7):CLS#1 
1990 PAPER#3S, 1: PEN#3, D: CLSH3: PRINT#3, * 
E SP A CE POUR A 





1 DE" 
2000 DATA CARTABLES, 2, 1,5,18,1,15,14,3,7 
RADIATEUR, 5,1,19,4,1,18,3,9,5, VETEMENTS 
,10,3,18,3,6,3,11,18,7, ESCALIERS, 3,7,2,1 
,14,4,3,5,7,AMBULANCE, 1,6,15,9,14,1,11,2 
,3, CONCOMBRE, 2,8,11,2,8,6,15,5,3, AUTRUCH 
ES,1,9,18,5,9,2,16,3,7 
2010 DATA BOUTEILLE, 15,8,9,18,3,4,14.14, 
3,PANSEMENT, 20,1,11,7,3,6,3,11, 18, CROCOD 
ILE, 2,5,8,2,8,19,4,14,3,FIN,0,0,0,0,0,0, 
0,0,0 
2020 DATA SERVIETTE, 7,3,5,10,4,3,18,18,3 
FAUTEUILS, 21,1,9,18,3,9,4,14,7, TELEPHON 
E,18,3,14,3,20, 16,8, 11,3, REMORQUES, 5,3,6 
,8,5422,9,3, 7, GUIRLANDE, 23,9,4,5.14,1,11 
,19,3,DEJEUNERS, 19,3,25,3,9,11,3,5,7, SPA 
GHETTI,7,20,1,23,16,3, 18, 18,4 
2030 DATA CASQUETTE, 2, 1,7,22,9,3,18. 18.3 
BOULANGER, 15,8,9,14,1,11,23.3,5,DIFFICI 
LE,19,4,21,21,4,2,4,14,3,FIN,0,0,0,0,0,0 
,0,0,0 
2040 DATA WAGONNETS, 12,1,23,8,11,11,3,18 
,7,LIGZAGUER, 26, 4,23, 26, 1,23,9,3,5.KYRIE 
LLES,17,24,5,4,3,14,14,3,7,MYANDOTTE, 12, 
24,1,11,19,8,18, 18,3, XEROPHYTE, 12,3,5,8, 
20,16,24, 18,3, ZARZUELAS, 26, 1,5, 26, 9,3, 14 
11,7, 200PHAGIE, 26,8,8,20,16,1,23,4,3 
2050 DATA KANGOUROU, 17,1,11,23,8,9,5,8,9 
XYLOPHAGE, 13,24, 14,8, 20, 16, 1,23, 3, Z00PH 
YTES, 26,8,8, 20, 16,24,18,3,7,FIN,0, 0, 0, 0. 
0,0,0,0,0 
2060 READ MOTS,L(1),L(2),L(3),L(4),L(5), 
L(6),L(7),L48),L(9) 
2070 MALUS =0 
2080 IF MOT$="FIN" THEN CLS#:G0TO 1760 
2090 ?FOR 1=1 T0 9 
2100 IF SP=1 THEN IF MALUS-0 THEN LOCATE 
#2,3,2:PRINTA2, MOTS 
2110 IF SP=2 THEN PRINT CHRS(24) ; :LOCATE 
5,11:FOR N=1 TO 9:PRINT ALPHASLIN));:N 
EXT N:PRINT CHRS(24) 
2120 ’NEXT I 
2130 G0SUB 2160 
2140 CLSHL:PRINT CHRS(24); 
2150 GOTO 2060 
2160 X=5:Y=15 
2170 PRINT CHR$(24); 
2180 IF H2=0 THEN X=X-2 
2190 W2=0 
2200 IF INKEY(69)=0 THEN L=1:K=K+2:M2z1 
2210 IF INKEY(62)=0 THEN L=2:X=X+2:H2=1 
220 IF INKEY(56)=0 THEN L=3:X=X42:W2=1 
2230 IF INKEY(35)=0 THEN L=4:X=X+2:h2=1 
2240 IF INKEY(50)=0 THEN L=5:X=X+2:H2=1 
2250 IF INKEY(38)=0 THEN L=6:X=X+2:W2=! 
2260 1F INKEY(60)=0 THEN L=7:X=X+2:H2=1 
2270 IF INKEY(34)=0 THEN L=8:X=X+2:42=: 
2280 IF INKEV(42)=0 THEN L=9:X=X+2:2=1 
2290 IF INKEY(55)=0 THEN L=10:X=X+2:H2z1 
2300 1F INKEY(46)=0 THEN L=11:X=X+2:W2=1 
2310 IF INKEY(59)=0 THEN L=12:X=X+#2:42=1 
2320 IF INKEY(63)=0 THEN L=13:X=X+2:W2=1 
2330 IF INKEY(36)=0 THEN L=14:X=X+2:W2=! 
2340 IF INKEV(54)=0 THEN L=15:X=X+2:W2=1 
2350 IF INKEY(44)=0 THEN L=16:X=X+2:W2=1 
2360 IF INKEY(37)-0 THEN L=17:X=X42:W2=1 
2370 IF.INKEY(51)=0 THEN L=18:X=X+2:W2=1 
2380 IF INKEY(61)=0 THEN L=19:X=X+2:W2=1 
2390 IF INKEY(27)=0 THEN L=20:X=X+2:42=1 
2400 IF INKEY(53)=0 THEN L=21:X=X42:W221 


2410 IF INKEY(67)=0 THEN L=22:X=X+2:W2=1 
2420 IF INKEY(52)=0 THEN L=23:X=X+2:W2=1 
2430 IF INKEY(43)=0 THEN L=24:X=X+2:W2=1 
2440 IF INKEY(45)=0 THEN L=25:X=X+2:W2=1 
2450 IF INKEY(71)=0 THEN L=26:X=X+2:W2=1 
2460 IF INKEY(9)=0 THEN R=0:PRINT CHR$(2 
4);:60SUB 2530:60T0 1760 
2470 IF INKEY(f8)=0 THEN IF R=9 AND MALU 
S=0 THEN GOSUB 1740:G0SUB 3160:R=0:RETUR 
N ELSE R=0:1IF YBON=5 THEN XBON=9:YBON=15 
:YBON=YBON-2:RETURN ELSE YBON=YBON-2 : R=0 
RETURN 
2480 IF INKEY(47)=0 THEN GOSUB 2610 
2490 IF X=23 THEN X=21 
2500 1F WZ=1 THEN IF R=9 THEN 2180 ELSE 
SOUND 1,RND(1)#400,3.15:LOCATE X,Y:PRIN 
T ALPHA$(L):R=R+1:FÔR TP=1 TO 4O0:NEXT T 
P:IF L(R)=L THEN 2180 ELSE GUSUB 2740:W2 
=0:R=R-1:G0T0 2180 
2510 W2=3 
2520 60T0 2180 
2530 GOSUB 1740 
2540 LOCATE 20,20:PRINT GOMMES$ 
2550 FOR X=5 TO 21:LOCATE X,9:PRINT EPON 
GE$::F0R TP=1 TO IOD:NEXT TP:NEXT X:LOCA 
TE 22,9:PRINT EFFEP1$ 
2560 FOR X=5 TO 21:LOCATE X,15:PRINT EPC 
NGE$::FOR TP=1 TO 1O0:NEXT TP:NEXT X:LOC 
ATE 22,15:PRINT EFFEP1$ 
2570 FOR X=5 TO 21:LOCATE X,1Z:PRINT EPO 
NGE$;:FOR TP=1 TO IOO:NEXT TP:NEXT X:LOC 
ATE 22,12:PRINT EFFEPI$ 
2580 LOCATE 20,20:PRINT CHR$(24); : PRINT 
EPONGE2$: : PRINT CHR$(24) 
2590 GOSUB 1740 
2600 RETURN 
210 MENU AIDE--——--—- 
2620 PAPER#3,0:PEN#3, 1 : CLS#3 
2630 FOR 1=400 TG 1 STEP-20:SOUND 1,1,1, 
TiNEXT 
2640 PRINT#3," C O0 P Y 
R ARRET" 
2650 FOR TP=1 TO 2000:NEXT TP:CLS#3 
2660 FOR 1=400 TO 1 STEP-20:SOUND 1,1,1, 
TiNEXT 
2670 PRINT#3," EUNLTIeE CR P 9 
U R S UI1TE" 
2680 FOR TP=1 TO 20OD:NEXT TP 
2690 PAPER#3, 1 : CLSH3 
2700 FOR 1=400 TO 1 STEP-20:SOUND 1,1,1, 
T:NEXT 
2710 FOR TP=1 TO 200:NEXT TP 
2720 PEN#3,0:PRINT#3, " E S P A € 
E POUR À I D E':PEN#3, 
Î 
2730 RETURN 
2140 = TRAITEMENT DE L’ERREUR-- 


2750 MALUS=1:FÜR TP=1 TO SOO:NEXT TP 

2760 FOR N={ TO 7:SOUND 1,200. 10,7: SOUND 
1,190,10,7:FOR TP=1 TO IOO:NEXT TP:PRIN 

T CHR$(24):LOCATE X.Y:PRINT ALPHA$(L) :FO 

R TP={ TO IOO:NEXT TP:NEXT N 

2770 PRINT CHR$(24):LOCATE X.Y:PRINT ALP 

HA$(L):LOCATE X,Y:PRINT GOMMES 

2780 LOCATE 15,7:PRINT MARTO2$:FOR TP=1 

TO SOO:NEXT TP 

2790 ?-——-——--------{©CLATEMENT 

2800 0X=4:0Y=9 

2810 FOR I=1 T0 3 


2820 OX=0X+2:0Y=0Y-2 

2830 LOCATE 0X,OY:PRINT ALPHA$(L):FOR TP 

= TO SO:NEXT TP:LOCATE OX,O0Y:PRINT GOMM 

E$ 

2840 NEXT I 

2850 GOSUB 3120 

2860 LOCATE 15,7:PRINT EFFMARTO2$:LOCATE 
14,4:PRINT MARTOI$ 

2870 TAG 

2880 MOVE 176,300:PRINT CHR$(99);:199=17 

6:Y99=300 

2890 MOVE 256,J00:PRINT CHR$(97) ;:X97=25 

b:Y97=300 

2900 MOVE 256,364:PRINT CHR$(100) : :X10D= 


256: Y100=364 


2910 MOVE 176,364:PRINT CHR$(98) : :X98=17 
6:Y98=364 


2930 FOR TP=1 TO S:NEXT TP:MOVE 176,300: 
PRINT CHR$(32)::MOVE 176.364:PRINT CHR$( 
32)::MOVE 256,300:PRINT CHR$(32) ;:MOVE 2 
56,364:PRINT CHR$(32): 
2940 NN=0 
2950 NNN=0 
2960 FOR N=284 TO 360 STEP 80 
2970 NN=NN+10 
2980 ANN=NNN# 10 
2990 Y99=Y99-40 
3000 Y97=Y97-30 
3010 Y9B=Y98-25 
3020 Y100=Y100-45 
3030 CAR1=99:CAR2=97 : CAR3=98 : CAR4= 100 
3040 NI=N#NN:N2=N-NN:NIEN+NN : N4=N-NN 
3050 MOVE N1,Y99+NNN:PRINT CHRS (CAR); :M 
OVE N2+80,Y97+#NNN: PRINT CHR£(CAR2) ; :MOVE 
N3,Y9B:PRINT CHR$(CARS) ;:MOVE N4+80, 10 
O:PRINT CHR$(CAR4)::IF AA=1 THEN 3070 
3060 FOR TP=1 TO SO:NEXT TP:CAR1=32:CAR2 
232: CAR3=32: CAR4&=32:A4=1 :GOT0 3050 

3070 AA=0:FOR TP={ TO SO:NEXT TP 
3080 NEXT N 

3090 TAGOFF 
3100 LOCATE 14,4:PRINT GOMMES 

3110 RETURN 

3120 ENV 2,10,-1,8,5,-144 

3130 ENT-2,80,1,1,20,2,1 

3140 SOUND 4,50, 100, 15, 2,2, 20 

3150 RETURN 
3160 *— 
3170 ENV 1,1,15,1,1,0,1,1,0,1,12,-1,2 
3180 FOR 1=11 TO 30 

3190 1=1+0.5 

3200 SOUND 1,105,1,1,1 

3210 NEXT I 

220 IF YBON=5 THEN XRON=9: YBON=15 

3230 YRON=YBON-1 :LOCATE#2, XBON, YRON: PRIN 
T2, RONRS 

3240 YRON=YRON-1 :LOCATEHZ, XBON, YBON: PRIN 
TH2, BONHS 

3250 FOR TP=1 TO 3O00:NEXT TP 

3260 RETURN 

3270 FOR N=100 TO 200 STEP 10:SOUND Î.N. 
2:NEXT:FOR N=200 TO 100 STEP -10:SOUND ! 
NS 2:NEXT 

10000 PRINT:PRINT:FOR L=1 TO 13:PRINT AL 
PHA$(L) 3 :NEXT Li PRINT: PRINT: PRINT: PRINT: 
FOR N=14 TO 26:PRINT ALPHA$(N)3;:NEXT N:P 
RINT : PRINT: PRINT : PRINT 

10001 PRINT:PRINT 18 


——--"MQT SANS FAUTE- 
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LECTHEME 








Georges LAVERGNE 


Ce programme éducatif est destiné à la fois à entraîner l’en- 
fant à la lecture rapide et à l’assimilation du mot affiché à 
un thème donné. Pas si facile qu’il n’y paraît ! 















186 IF «$="9" OR k$='n" THEN 210 





VOAHAHARANEX LECTHEME 44444444 
































190 LOCATE 39.7: J:PRINT #": COR t=i 
; A = ne TO 200:NEXT:LOCATE 39,7:PRINT " ":FOR T= 
##### (C) LAVERGNE & CPC ##e#e { TO ZOO:NEXT 
JC RÉÉREREREEEH ENS ÉMESRÉRERILEÉREER me ao . AND k$:: *c" THEN 170 
209 I < #2 ©  INEN LC 
46 DIM b$(10).a$(20): 219 LOCATE 39.7:PRINT 
G vitet='lente*:vite=700 220 PS IAE 
: a: 220 IN 
bÜ REM = ACCENTS 230 
70 SYMBOL AFTER 6à 5R 
24G IR =! 
80 SYMPOL 125. 00.410. 83€. 606.87 +0 
CIMEY 135. (22): SYML : tie 
Tor ou T=1 T0 NEXT 
.&56, &7E. &oG 5 REY ! 250 IF p$<;'o* AND o$<°n' THEN 220 


260 LOCATE 15: te 0$ 
Re 






GREY 112, 24n$i62 
24,830. 89. Eso. sé. Le 
{lis CNMBUL 94 

13+.CHRS (94) :8YNE 
.&3E. 410. 890,860: 


ii0 REM = 


heal 












JOC IF d£: o AND ÿ$c:"n" THEN 270 
sic ATE 5 37.24: PEINT ©c$ 









PSINT "DO lortrec m 


NEUT ‘Ton nom cu1e 


INT ‘iecthime*:FÜR t= 
GRINT 3 





IB.!:FRINT ‘choisis... *: 
INT "Les ricles au jeu on} 





a à vitesse unique et raide": 
c'est oius diff: 










*:LÜCATE 223:PRINT 





un PCcSaI 


sans risoue tc/nl° COMMENCER « 


170 HÉ=INEEY F 
170 KÉ=INREYS &iD Ft=INKFY# 
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420 IF F$=CHR$(32) THEN 4930 ELSE 410 
430 CLS 
440 LOCATE 2,22:PRINT "SCORE" :LOCATE 33. 
22:PRINT *FAUTES" 
450 REM 
460 REM = CADRE 
470 ORIGIN 0.0: INK 3.6:DRAW 639.0,3:DRAN 
639,399,3:DRAW 0,399.3:DRAN O.0.3 
480 PLOT 250,190.3:DRAW 450,190,3:DRAW à 
50,240,3:DRAW 250,240.3:DRAW 250,190.3 
490 PLOT 20.300.2:DRAW 200,300,2:DRAW 20 
0.350.2:DRAW 20.350.2:DRAW 20,300. 2:PLOT 
220,300.2:DRAW 400.300,2:DRAW 400.350. 2 
:DRAW 220.350,.2:DRAW 220, 300.2 
500 PLOT 420,300.2:DRAW 620,300. 2:DPAW & 
29,350.2:DRAW 420.350.2:DRAW 420, 300.2 
510 PEN 3:LOCATE 6,.2:PRINT "nom":PEN € 
OCATE 3,5:PRINT n$:PEN J:LOCATE 18.2 ” 
NT ‘vitesse":PEN G:LOCATE JO, Z2:FRINT ‘th 
ime* 
520 LOCATE 15.5:INK 2 
ef 
530 REM = DEBUT DU JEU 
540 FOR ji=t TO 10 
550 essai=eceaitl 
56G RANDOMIZE TIME 
570 xxCii1=INTIRND#10)+1 
580 n=! 
590 FOR s=1 TO ii 
éGG IF »xiijisxxtji-n) THEN 560 
610 n=n+i 
620 NEXT s 
630 ÔN xx(jj) GOTO 840,650, 660, 670, 680. 6 
90,700. 710.7 
bäÿ GOSUR 1470:G0T0 740 
65G GOSUR 1490: Goo 740 
b6O GÜCUE 1510:G0T0 740 
670 GOSUE 1530:G0T0 740 
680 GOSUR 1550:G0T0 740 
690 GOSUR 1570:G)T0 740 
700 GOSUR 1590:GûT0 740 
710 GOSUB 1610:G0T0 740 
720 GOSUR 1630:G0T0 740 
730 GOSUB 1650:G0T0 740 
740 PEN Z:LOCATE 28.5:PRINT themes 
750 REM = À RETROUVER : MOTS 
760 FR t=1 TO 10 
770 READ b$(t) 
780 NEXT t 
790 REM = LECTURE MOTS 
800 ON xxtij) GOTO 8160,820.830. 840. 350.8 
60,870, 880,890, 900 
810 GOSUR 1670:G0T0 920 
820 SOSUR 1890:G0T0 92C 
820 GÜSUR 1710:G0T0 920 
840 
850 
8ëG 
870 
880 GÜS 
890 
906 6 
910 
20 FOR i=1 TÈ 20 
930 READ a$i:} 
940 
950 


2, 2b:PEN 2 


Z:PRINT vit 


ro 920 
TO 9:0 





CJM 








CO co CO —4 - 


un 


D:G0Tû CAR 


Géû F 
570 





990 REM = AFFICHAGE 

1000 REM = ANTI REPETITION 

1010 n=1 

1020 FOR r=1 TO j 

1030 IF x(j)=x(j-n) GOTO 970 

1040 n=nt1 

1050 NEXT r 

1060 espace=0 

1070 PAPER 1:PEN 2:LOCATE 18,12:PRINT a$ 
{xtj))s 

1080 REM = COMPARAISON 

1090 FOR tt=1 TO 10 

1100 IF b$(tt)=a$(x(j)) THEN 1870 

1110 NEXT tt 

1120 REM = NOTATION 

1130 k$="" 

1140 FOR t=1 TO vite 

1150 k$="" 

1160 k$=INKEY$ 

1170 IF k$=CHR$(32) THEN 1230 

1180 NEXT t 

1190 IF espace=1 THEN 1200 ELSE 1220 
1200 b=b-1:f=f+1 

1210 GOTO 1260 

1220 b=b+1:G0T0 1260 

1230 k$="1":FO0R e=1 TO SOD:NEXT:IF espac 
e=1 THEN 1240 ELSE 1250 

1240 b=b+1:60T0 1260 

1250 b=b-1:f=f+#1:60T0 1260 

1260 IF b<O THEN 1280 ELSE 1290 

1270 REM 

1280 b=0 

1290 espace=0 

1300 PEN J:LOCATE 3.24:PRINT *  *:bb$=5 
TR$(b):LOCATE J3.24:PRINT bb$:LOCATE 35.2 
4: PRINT " © ":f$=STR$S(F):LOCATE 35.24:PR 
INT f$:LOCATE 18,12:PRINT * » 
1310 IF rapide=1 THEN 1380 

1320 IF b=9 THEN GOSUB 1880:G0T0 1380 
1330 IF b=10 THEN GOSUB 1890:G0T0 1389 
1340 IF b=20 THEN GOSUB 1890:G0T0 1380 
1350 IF b=21 THEN GOSUB 1900:G0T0 1380 
1360 IF b=49 THEN GOSUB 1900:G0T0 1380 
1370 IF b=50 THEN GOSUB 1910:@0T0 1380 
1380 NEXT j 

1390 REM = FIN THEME 

1406 IF jj=10 THEN 2020 

1410 LOCATE 28.5:PRINT * o 

1420 INK J,6,1:LOCATE 15.1B:PRINT *TERMI 
NE ":N$:LOCATE 15,20:PRINT "NOUVEAU THEM 
E":FOR W=1 TO JODO:NEXT:LOCATE 15,1B:PRI 
NT " *:LOCATE 15.20:P 
RINT * 

1430 INK 3,6 

1440 IF essai=2002 THEN 60TO 2010 

1450 NEXT jj 

1460 END 

1470 theme$=" l’eau" :RESTORE !480:RETURN 
1480 DATA lac,mare, (tang.rivilre. fleuve. 
ser. torrent. pluie.giboulle.ocian 

1490 theme$=" vetements" :RESTORE 1S00:RET 
URN 

1500 DATA pantalon.chemise. fouiard, cnaus 
sette. veste, jupe, chemisier. chandail.blou 
se.manteau 

1510 theme$="mitiers":RESTORE 1520:RETUR 
N 

1520 DATA charcutier, pompier, dessinateur 
gendarme, cin{aste. fleuriste. dentiste, (b 
oueur, ser veur.mineur 


1530 themeÿ=" animaux” :RESTÜRE 1S40:RETUR 
N 

1540 DATA lion,belette,souris.ours,pigeo 
n,vache, poule, serpent,chenille.baleine 
1550 theme$="le corps" :RESTORE 1560:RETU 
RN 

1560 DATA paupilre,menton, poignet, talon, 
Paume. chevilte,poitrine.creijle,cuisse,d 
oigt | 

1570 theme$="la musique" :RESTORE 158D:RE 
TURN 

1580 DATA harpe.piano. disque.m{lodie.cla 
iron. tambour, trompette,quitare, violon, ac 
cord{on 

1590 theme$="la voiture":RESTORE !600:RE 
TURN 

1600 DATA roue.capot,cric.volant,si}ae.c 
offre.phare.clignotant,r{troviseur.galer 
ie 

1610 theme$="la maison*:RESTORE 1620:RET 
URN 

1620 DATA volet.vitre,balcon.mur, pignon. 
fa\ade, perron, rampe, chemin(e. marche 

1630 theme$="les fruits" :RESTORE 1640:RE 
TURN 

1640 DATA banane.oranoe, cerise.citron,fr 
aise, oroseiile, pomme, poire. ananas. mandar 
ine 

1650 theme$="la ferme” :RESTÔRE 1660: RETU 
RN 

1660 DATA charrue, chariot. tracteur, champ 
ricolte,moisson,bitail,bl{,semaille, foi 
ï : 

1670 RESTORE 16B0:RETURN 

1680 DATA terre, bateau, torrent. berge.plu 
ie,rame,oc{an,botte,giboul{e,barque,mare 
. papier, mer, voiture, fleuve, chaise, lac,ma 
rche, (tang,rivilre 

1690 RESTORE 1700:RETURN 

1700 DATA pantalon,assiette, chemise. cout 
eau, foulard, fleur, chaussette, journal,ves 
te,radiateur, jupe, tapis, chemisier, pelous 
e,chandail, camion,blouse, chemin(e,mantea 
u,chenille 

1710 RESTORE 1720:RETURN 

1720 DATA charcutier, charcuterie, pompier 
«pommier, dessinateur, moteur. gendarme, pro 
gramme. cin{aste,cin(ma, fleuriste,miritan 
t, dentiste. dentition. (boueur.ciameur,ser 
veur,sayourer mineur, stupeur 

1730 RESTORE 1740:RETURN 

1740 DATA lion, loin,recette, sourire, bele 
tte.souris.ours, chapeau, pigeon. pignon, va 
che, cache, poule, pousse, serpent. serment, c 
heniile.charmille,baleine.haleine 

1750 RESTURE 1760:RETURN 

1760 DATA paupi)re,courbe.menton.menteur 
«poignet, pionnier, talon, taient. paume, dou 
ce.cheville,chenille,poitrine.poitevine. 
oreilie,oseille, cuisse, cuissarde, doiot.d 
roit 

1770 RESTORE 17B0:RETURN 

1780 DATA harpe, harde, piano, ooint, disaue 
.bisque,m{lodie,t{l{phone,clairon. (clair 
age. tambour. bambou, trompette. tromperie, 
uitare.quimauve, violon. voilage, accord(on 
.fluet 

1790. RESTORE 1B00:RETURN 

1800 DATA roue, rouet, capot, chapiteau. cri 
c.crier.volant.voleur.siloe,sieste.coffr 


e,offre,phare, phasme, clignotant, clopinan 

t,r(troviseur, trouvaille,galerie,gal)re 

1810 RESTORE 1820:RETURN 

1820 DATA volet, violet, vitre,mitre,balco 

n,ballon,mur,muer, pignon, pigeon, fa\ade,r 

apace, perron, charmante, rampe, crampe, chem 

inle,chemise,marche.manche 

1830 RESTORE 1840: RETURN 

1840 DATA banane, cabane, orange. orage, cer 

ise,crise.citron,cidre, fraise, farine, gro 

seille,vermeille, pomme, gomme, poire, boire 

,ananas, amasser , mandar ine, mout ar de 

1850 RESTORE 1860: RETURN 

1860 DATA charrue, charnu, chariot. cahier, 

tracteur ,r{acteur,champ. clameur,r{colte, 

recoller.moisson,mousson.b{tail,d{tail.b 

l(,ci{.semaille,maille,foin,soin 

1870 espace=1:G0TO 1140 

1880 vite=700:LOCATE 15.5:PRINT * 

"2PEN Z:LOCATE 15,5:PRINT "lente':RE 

TURN É 

1890 vite=500:LOCATE 15,5:PRINT " 
"LOCATE 15,5:PEN 2:PRINT "mouenne": 

RETURN 

1900 vite=350:LOCATE 15,5:PRINT * 
":LOCATE 15,5:PEN 2:PRINT "rapide':R 

ETURN 

1910 vite=200:LOCATE 15,5:PRINT " 
"LOCATE 15,5:PEN 2:PRINT ‘tris rapi 

de" : RETURN 

1920 CLS:LOCATE 16,1:PEN 3:PRINT "REGLES 


TE 3.5:PRINT * N'utiliser que la barre e 

space." ® 

1930 LOCATE 1,7:PEN 3:PRINT °#":PEN 2:L0 

CATE 3.7:PRINT * Des mots vont apparaitr 

e au centre.":LOCATE 1,9:PEN S:PRINT "#" 
:PEN 2:LOCATE 3,9:PRINT "Il faut reconna 
itre ceux qui":LOCATE 3,11:PRINT ‘appart 
iennent 4 un thime donnl.” 

1940 LOCATE 1,13:PEN 3:PRINT "#":PEN 2:L 

OCATE 3,13:PRINT "Appuie alors une seule 
fois":LOCATE 3,15:PRINT "par mot trouvi 
... "2LOCATE 3.20:PRINT "ex:  mare,lac s 

ont du thime <l’eau»" 

1950 h$=INKEYS 

1960 PEN 3:LOCATE 6.24:PRINT "barre espa 

ce pour continuer" :PEN 2 

1970 IF h$=CHR$(32) THEN 1980 ELSE 1950 


1980 CLS:RETURN 

1990 vite=300:vite#$="rapide":rapide=1:RE 

TURN 

2000 essai=2000:LOCATE 16.15:PRINT "ceci 

est un essai”:LOCATE 16,16:PRINT "tu pe 

ux jouer ":FOR t=1 TO JOOG:NEXT: RETURN 

2010 essai=0:LOCATE 16,15:PRINT ” 

"ILOCATE 16.16:PRINT 

“:LOCATE 16,9:PRINT "essai termin{ 

":FOR t=1 TO JO00:NEXT:b=0: f=0: CLS: GOTO 

390 

2020 CLS:LOCATE 16.10:PRINT "termin( "in 

$:LOCATE 16.12:PRINT "ta note est":LOCAT 

E 28.12:PEN J:PRINT b:PEN 2:b=0:f=0 

2030 LOCATE 6.24:PEN J:PRINT "ESPACE pou 

r une autre partie" :PEN 2 

2040 c$=INKEYS 

2050 IF c$(>CHR$(32) THEN 2040 

2060 IF c$=CHR$(32) THEN 50 8 
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Hey ! Camarades nuls en maths, CPC pense à vous. Le calcul 
mental représente un exercice que la technologie moderne 
nous a fait rapidement oublier. Une panne d'électricité, de cal- 
culatrice et c’est la panique. Ce mal touche aussi bien les jeu- 
nes et les moins jeunes, alors une seule solution : Multiply. Ce 
logiciel vous détaillera les opérations si nécessaires. Les cracks 
ne seront pas non plus oubliés, car différents niveaux sont dis- 
ponibles et chacun y trouvera le sien. Méfiez-vous cependant, 
il compte les fautes et vous ne pourrez vous cacher longtemps 
votre véritable valeur. Mais n’en déduisez pas pour autant 


que vous ne savez pas compter. 


10 REM programme de multiplication 
20 REM (c) G.MARMAIN & CPC 

J0 MODE 2 

40 RANDOMIZE TIME 

50 WINDOW #1.2.30.2, 10 


60 HINDOW #3,2,30.15,20 

70 WINDOYW #2. 40,80, 2,20 

80 CLS:PRINT #1. "MULTIPLICATION" 
90 PRINT #1,*{ - Niveau 1" 

100 PRINT #1."2 - Niveau 2* 

110 PRINT #1.°3 - Niveau 3° 


120 PRINT #1."4 - Niveau 4° 

130 PRINT #1.'5 - Niveau 5° 

140 PRINT #1."Entrez-votre choix’ 
150 r$ = INKEY$:r = VAL tr$) 

160 IF r$ =?" THEN 150 

170 IF r € 1 OR r > 5 THEN CLS #1:G0TO 8 
0 

180 w=1 

190 u=0 

200 a=INT (4Ar#RND+10) 

210 b=INT((3Ar#r+20)#RND+10) 





220 CLS #2:CLS #J:PRINT #2.b:" X “sa: = 
x à . 

230 PRINT #2:PRINT #2. "Votre resuitat :° 
240 INPUT #2,rep 

250 IF rep = ba THEN PRINT H3:PRINT #3, 
"Correct" :G0T0 610 

260 PRINT #3.:PRINT #3,"Faux”":u=i 

270 IF a>=100 THEN c=INT (a/100):ce=c#10 
0 

280 IF a;={0 THEN d=INT (a/10)-c+#{0:ce=c 
#10 

290 e=a-ce-de:re=0:50=0 

J00 FOR i=1 TO 1O00:NEXT 

310 CLS #2:CLS #3:PRINT #3. "Essauez donc 
cela." 

320 IF b>=1000 THEN 1=4:G0T0 360 

330 IF b>=100 THEN 1=3:G0T0 360 

340 IF b>={0 THEN 1=2:G0T0 360 

350 1=1:60T0 360° 

360 LOCATE #2.30-1.4:PRINT #2.b 

370 IF a>=100 THEN 1=3:G0T0 400 

380 IF a>=10 THEN 1=2:G0T0 400 

390 1=1:G0T0 400 

400 LOCATE #2.30-1.5:PRINT #2.a 

410 LOCATE #2.25,6:PRINT #2,"X --—----" 
it=é 

420 IF e>=0 THEN PRINT #42.b:" X ‘:e:" 
"::5=e:G0SUR 490 

430 IF d>0 THEN PRINT #2.b:° X ":de:* 
"::5s=0e:60SUB 490 

440 IF c>0 THEN PRINT #2.b:" X ":ce:" 
"::s=ce:G0SUB 490 

450 LOCATE #2.25,t+1:PRINT #2.°+ 

460 CLS #J:PRINT #3. "resuitat:": INPUT #3 
.re 


470 IF re = so THEN PRINT #5.” juste”: :G0 

TO 480 ELSE GÔTO 460 

48D LOCATE #2.30-1.t+2:PRINT #2.re:F0R : 
= { TO 2000:NEXT:CLS #2:CLS #J:G0TO 610 
490 INPUT #.re 

500 IF re = b*s THEN GOTO 516 ELSE PRINT 
#3." faux” :GOTO 490 


510 1=0 . 
520 IF re >= 1000000 THEN 1=7:LOCATE #2. 
30-1,t+1:PRINT #2.re:t=t+{:G0TO 590 

530 IF re >= 100000 THEN 1=6:LOCATE 42.3 
O-1.t+1:PRINT #2.re:t=t+#1:G0T0 590 

540 IF re >= 10000 THEN 1=5:LOCATE #2.30 
—Lit+L:PRINT #2,.re:t=t+1:G0T( 590 

550 IF re >= 1000 THEN 1=4:LOCATE #2.30- 
1,t+1:PRINT #2.re:t=t+1:G0TO 590 

560 IF re >= 100 THEN 1=3:LOCATE #2.30-1 
ti: PRINT #2,.re:t=t+1:GOTO 590 

570 IF re >= 10 THEN 1=2:LOCATE #2.30-1. 
t+L:PRINT #2,re:t=t+1:G0TO 590 

580 1=1:LOCATE #2.30-1,t+1:PRINT #2.reit 
=t+! 

590 so=sotre 

600 RETURN 

610 IF u=0 THEN score =scoreti 

620 PRINT #3."question ";u:" score ":5c0 
re 

630 FOR j = { TO 2000:NEXT 

640 w=u+! 

650 IF w > 10 THEN 660 ELSE 190 

b6O CLS #J:PRINT #3." Nouvelie partie a/n 
670 r$=INKEY$ 

680 IF r$ ="" THEN 670 

690 IF r$ = *o* THEN 60 

700 IF r$ = ‘n" THEN END ELSE 670 
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Ce programme permet la redéfinition de caractères à l’unité 
ou en blocs pouvant atteindre 8 caractères. Vos dessins peu- 
vent être sauvegardés pour modification ultérieure sous 
forme de tableaux, mais aussi sous forme de dates ou de chaï- 
nes de caractères dans un module Basic que vous pourrez 
inclure dans vos propres programmes. 


Il fonctionne sur 464, 664 et 6128 avec 
détection automatique du type de 
machine. Un moniteur couleur est sou- 
haitable. || est possible de sauter la pré- 
sentation en pressant deux fois la tou- 
che ESCAPE. 

Après ce préambule, le programme teste 
si vous disposez d'une unité de disquet- 
tes et réagit en conséquence. Puis la 
grille apparaît aux dimensions voulues. 
En haut et à gauche, vous avez le des- 
sin en dimensions réelles. A droite, un 
ruban avec les couleurs disponibles. 
Attention : les couleurs 14 et 15 sont 
réservées à l'affichage. Le choix PENS 
permet de modifier la palette. Le curseur 
peut être déplacé à l’aide du curseur ou 
du joystick. 


Voyons les autres commandes : 

— TRANSFORME fait apparaître sur la 
grille le SYMBOL voulu, une lettre par 
exemple. 

— SYMBOLS INTERDITS permet d'évi- 
ter certains SYMBOLS qui existent déjà 
dans le jeu disponible. 

— ROTATION permet d'effectuer. des 
rotations droite/gauche ou haut/bas. 
— INVERSION effectue une inversion 
vidéo avec parfois des effets surpre- 
nants. 

Comme indiqué plus haut, l'option SAU- 
VER permet d'archiver son travail sous 
forme de programme Basic ou sous 
forme de tableau pour modification ulté- 
rieure. 





10 ? HAAHHNAMNNNNNNNNANNNNAR 

20 

30 REFONT 

40 F - 

50 * # (C) LARRODE 

60 ? # ALAIN 

70 ‘ # 

80 ? HAHANARANAARHMANRAMANAE 

90 ? 

100 * INITIALISATION 

110 ? LES REMS SONT CPTIONNELS 

120 ? 

130 * PRESENTATION 

140 

150 MODE O:RORDER O:DEFINT i,j,Kk,c:FOR i 
=0 TO 1O:INK 1,1:NEXT:INK 11,1B:INK 13,2 
G:INK 14,24:INK 15,2:c=1{:x$=CHR$(23)+CHR 
$(1):n$=CHR$(23)+CHRS(D) ENV 1,2,7,2,1.1 
.5,14,-1,5:ENT-1.5,1,1,10,-1,1,5,1.1:0N 
BREAK GOSUR 210 

160 PAPER Z:p=13:a$="":b#$="Veuillez pati 
enter":x={:u=22:G0SUB 200:F0R i=0 T0 100 
O:NEXT:PAPER O:CLS:FOR i=2 TO 22 STEP 2: 
SOUND 7,1#70,0,0.1,1:BORDER 11-c 

170 WHILE S0(1)>4 AND i=22:WEND:MOVE 320 
-14.5#1,390-12#1:RESTORE 220:FO0R :=1 Tû 
B:READ x,u,z:MOVER x#i,u#1:FOR k=! TO 2: 
READ x,uy:DRAWR x#i,u#i,c:IF c=11 THEN S0 
UND 7,60,5:x=XP0S:u=YPOS: PRINT x$3:DRAW 
320,0:CALL &PD19:DRAW x,y:PRINT n$: 

180 NEXT k, jic=c+l:NEXT:p=14:a$=CHR# (164 
)+* LARRODE Alain" :x=2:u=20:G0SUR 200:0= 
15:a$="APPUYEZ":x=b:u=22:GOSUR 200:a$="s 

UR UNE TOUCHE .."+CHR$(143):x=1 :u=24:G0S 
UB 200 

190 c=0:d=0:WHILE INKEY$="":INK {+c,0:CA 

LL &BD19:c=c+1:INK Î+c,!+d:CALL &BD19:HH 
ILE c=10:d=d+i:d=d MOD 25:INK 11,1+d:FÔR 
i=! TO 10:CALL &BDI9:NEXT : c=O:WEND:WEND 
:G0TO 22 

200 PEN o:PRINT x$::FO0R i=LEN(a$)TO 1 ST 

EP-1:FOR j=1 TO ituia=j#32+{6:b=(25-u)#1 

6-2:MOVE a,b:DRAW 320,0,p:CALL &BD19:L0C 

ATE j,u:PRINT'" *+MID$(a$.1,1);:CALL EBDI 

9:MOVE a.b:DRAW 32D.0:NEXÂT j,1:PRINT n$; 
RETURN 

210 PRINT CHR$(23)CHR$(0) ;:RUN 240 

220 DATA 441344 7ideslotes Ze 5,,5,,5, 

asus da to 2578872255,255 1,756 568,21 
vtediés,2,1.75,,,25,-,25,,-1,5,- : 

5,-1.75,,4,-6412,,7,4,,,-l-3,, 22 = 
PE Le Pi D PI LOC LC Ou le 
Pr 2 do Ce CU Que in PP LA LS DITS DCE 
1e deu om Dan! 

230 DATA -2,,-1,1,1..25.8,,4,9,,29,.25.1 
sSse 205 25,403: -.25-,25,-1.5,,-,25, 
29 44421225,10, 72 sels 55 7h 


-2,5,,-5,-14 568 Josh tes slots = 








1.5,,,-8,-1, 


25 


240 CLS:CLEAR:DEFINT i-1,x,y:numsymo= 126 

:djd$#="":0N ERROR 60TO 3290 

250 SYMBOL AFTER 32:PAPER O:PEN 1:INK 14 

112INK O,1:INK 1,24:BORDER 1 

260 CLS:MODE 1:LOCATE 1,4:PRINT* COULEUR 

OU MONOCHROME (C/M) 7° 

270 a$="":WHILE a$<>"C'AND a$C>°M" :a$=UP 

PERS ( INKEY$) :WEND 

280 IF a$="M"THEN colm=26 ELSE colm=13 

290 PRINT:PRINT* MATERIEL : ";:1F PEEK(& 

AbAD)=0 THEN PRINT'CASSETTE"ELSE PRINT"D 

ISQUETTE" 

300 KEY 138," symbol after J2:ink 1,Z4:in 

k O.{:border 1:pen l:mode 2°+CHR$(13) 

310 KEY 128,"for i=1 to hou:?c$(i):next" 

+CHR#(13) 

320 DIM tab1$(8) ,numdef$(222),symb$ (222) 

,c$(16) ,eng(15),pet1.15) 

330 FOR i={ TO SOOO:NEXT:ON BREAK GOSUB 

1590:FOR i=0 TO 13:pei0,i)=i:pe(i,1)=15N 

EXT:1F colm=13 THEN pe(0,13)=26:pe(1,13) 

=26 

340 INK O,colm:INK 1,0:BORDER colm:PAPER 
O:PEN 1:MODE 1:SYMBOL AFTER 32 

350 LOCATE 1,4:PRINT"Largeur du caracter 

e(1a4):"; 

360 a$="":WHILE a$<°1°OR a$>"4":a$=INKEY 

$:WEND:la=VAL(a$):lax=8#la: PRINT a$ 

370 INK t4,colm:INK 15,0:LOCATE 1,7:PRIN 

T'Hauteur du caractere (1 a 2) :*; 

380 a$="":WHILE a$<"1'OR a$>°2*:a$=INKEY 

$:HEND:ho=VAL (a$):hoy=8#ho:PRINT a$ 

390 MODE O:PAPER 14:PEN 15:CLS:WINDOW#1, 
18,19,6,7:WINDOW#2, 1,20, 21,25:PAPER#2, 14 
:2HINDOW#3, 18,19, 4, 10:PAPER#S, 14 HINDOWR4 
1,20, 25,25 :PAPER#4, 14:PEN#4, ! 

400 FOR i=0 TO 13:INK i,petO,i),petf,i): 
NEXT:GÜSUB 2780 

410 ? 

420 ? #####4 DETECTION 464 QU 6 
bh-6128 #H#### 

430 ? NE PAS EFFACER LE ‘FRAME’ (S 
ERT À LA,DETECTION !!!) 

440 ? 

450 frame:adcar=PEEK(&B736)+256#PEEK (&B7 
37) : paper g=&B6A# : peng=&B6AS 

460 

470 ? ATTENTION !! TOUS LES ’SYMBOL AFTE 
R 32° SONT INDISPENSABLES 

480 

490 FOR i=0 TO 15:PLOT-10,-10,i:engli)=P 
EEK (peng) :NEXT 

500 DEF FNc3=VAL(*&"+MID$(c#$(u),x, 1)):DE 
F FNc3$(x)=MID$(STR$(x),2) 

510 pet0,14)=colm:DEF FNci=VAL("&"+MIDS( 
c$tu),((x-1)\2)#2#1,1)) 

520 pe(i,14)=colm:DEF FNc2=VAL("&"+MID$( 
c$y),((x-1)\2)#2+2,1)) 

530 DEF FNci$=CHR$(22)+CHR$ (1 )+CHR$ (15 )+ 
CHR$(FNCI)+"\"+CHRS(B)+CHR$ (15) +CHR$ (FN 
2)+°°"+CHR$(22)+CHR$(0) 

540 DEF FNc2$=CHR$(22)+CHR$ (1 )+CHR$ (15 )+ 
CHR$(15+((0e(0,FNci)<2 AND x MOD 2=L)0R( 
pe(O,FNc2)<2 AND x MOD 2=0)))+CHR$(36+{x 
MOD 2=1))+CHR$(22)+CHR$ (0) 

550 GOSUB 940:TAG:FOR i=0 TO 14:POKE pap 
erg,eng(15):P0KE peng,eng(i):MOVE 192+1# 
28,396:PRINT CHR$(233) ;:POKE peng,eng{15 
):POKE paperg,eng(14):MOVE 200+i+28, 380: 
PRINT HEXS$(i+1)::NEXT:TAGOFF :color$="E" 


26 


560 FOR i=0 TO 15:MOVE 192+i*28,396:DRAW 

R 0,-34,15:NEXT:DRAWR-414,0 

570 ? 

580 ? MENU PRINCIPAL 

590 ? 

600 touche$="1234567B9ABCDEF *+CHR$(127)+ 

"PRITSQ0" :GOSUE 1310:G0SUB 1070 

-610 #=1:ÿ=1:LOCATE Î,4:PRINT FNc2$i :inx= 

O:iny=0:PAPER#1, VAL("&"+color$):CLS#1 

620 t$=UPPER$S(INKEY$):IF t$=""THEN 620 

630 IF INKEY(O)=0 OR INKEY(72)=0 THEN IF 
y>1 THEN iny=-1 ELSE 62 

640 IF INKEY(2)=0 OR INKEY(73)=0 THEN IF 
y<hou THEN iny=1 ELSE 620 

650 IF INKEY(8)=0 OR INKEY(74)=G THEN IF 
x>1 THEN inx=-1 ELSE 620 

660 IF INKEY(1)=0 OR INKEY(75)=0 THEN IF 
x{lax THEN inx=1 ELSE 620 

67G ’IF INKEY(47)=0 OR INKEY(76)=Q THEN 

MID$(c$(u),x,1)=color$ELSE if inx+iny=0 

THEN 680 

680 IF INKEY(47)=0 OR INKEY(76)=0 THEN I 

F MID$(c$(u),x,1)=color$THEN MID$(c$(u), 

x,1)="E" ELSE MID$(c$(u),x,1)=color$ ELS 

E IF inx+iny=0 THEN 700 

690 GOSUB 1540:x=x+inx:y=ytiny:inx=0:iny 

=0:LOCATE(x+1)\2,3+y:PRINT USING"&" ;FNcZ 
3:PLOT 10+x#4,396-u#2,FNc3:GOTO 620 

700 t=INSTR(touche$,t$):1F t=0 THEN 620 

710 IF t<i6 THEN color$=HEX$(t-1) :PAPERX 

1,VAL("&"+color$):CLS#1:GOTO 620 

720 ON t-15 GOSUB 920,780,1110,1210, 1360 

1690, 1590, 2470 

730 ON t-15 GOTO 740,740, 740,740, 600, 620 

2390, 600 

740 IF t=17 THEN GOSUR 1310:60T0 620 ELS 

E IF control THEN 620 ELSE 600 

750 ? 

760 ? CHOIX DES COULEURS 

770 ? 

780 DATA "r s CHOIX COULEUR*," C 
CLIGNOTEMENT", "ESPACE COULEUR +", "ENT 

ER RETOUR" 

790 SOUND 3,200,25,5:RESTORE 780:CLS#2:P 

RINT CHR$(23) ;CHR$(3);:FOR ti=0 TO 3:REA 

D tex$:MOVE 16,76-t1#20:G0SUB 1D30:NEXT: 

PRINT CHR$(23) ;CHR$ (0) ; 

800 col=0:ccol=0:incol=0:60T0 880 

810 a$=UPPER$S(INKEYS):IF a$="" THEN 810 

ELSE incol=0 

820 IF a$=CHR$(242) THEN IF col>0 THEN i 

ncoi=-1:ccol=0 ELSE 810 

830 IF a$=CHR$(243) THEN IF col(i3 THEN 

incol=l:ccol=0 ELSE 810 

840 IF a$="C'THEN ccol=ccol XOR 1:SOUND 

3,200,25,5:petl-ccol,col)=pe(O, col) 

850 IF a$=" "THEN pelccoi,col)=petccol,c 

ol)+l:pe(ccoi,col)=pe(ccoli.coi)MOD 27:pe 

(-ccoi,col)=pe(0,col):INK col,pe(ccol,c 

ol),pe(ccol,col):G0TO 880 

860 IF a$=CHR$(13)THEN INK col,pei0,col) 

pett,col):PAPER#1,14:CLS#1:GOTO 990 

870 INK col,peiD,col),peti,col):col=col+ 

incol:INK col,pe(ccol,col).petccol.coi) 

880 PAPER#1,col:CLS#1:tex$=HEX$(col+1):M 

OVE 570,340:G0SUB 1030:FOR c=0 TO 1:tex$ 

=RIGHT$(STR$(pelc,col)),2)+CHR$(32-35#({ 

pe(0,col)<>netl,col)AND c=1)0R ccol#c={) 

):MOVE 550,282-c#18:G0SUB 1030:NEXT:G0TO 
810 


890 ? : 
900 ’ EFFACE OU AFFICHE GRILLE (SUIVANT 
LE FLAG) 

910 

920 GOSUB 1580:1F control THEN RETURN 
930 SOUND 3,200,25,5:CL5#2:tex$="J EFFAC 
E ?":MOVE 100,66:GOSUR 1030:a$="":WHILE 
a$(>"O"AND a$>"N° :a$=UPPERS(INKEYS$) :HE 
ND:IF a$="N'THEN RETURN 

940 FOR i=1 TO hoy:c$(i)=STRING$(lax,E" 
):NEXT:flao=i 

950 PLOT 0,352,14:DRAWR 520,0:F0R i=0 TO 
hou:MOVE 0,352-16#1:DRAWR 128#1a-8#(1>0 
AND i<hoy AND i MOD 8=0),0,15:NEXT:FOR 
1=0 TO lax:MOVE 16#1,352:DRAWR 0,-128#ho 
+8+(1>0 AND i{lax AND i MOD 8=0),15:NEXT 
960 MOVE 8,396:DRAUR 32#1a+4,0:DRAWR C,- 
16#ho-2:DRAWR-32#1a-4,0:DRAWR 0, 16xhio+z 
970 FOR u=1 TO hou:IF flag THEN PEN 15:P 
APER 14:LOCATE 1.ut3:PRINT STRING$(1ax4, 
"X')3:MOVE 12,396-2#4:DRAMR 31#1a,0,14 E 
LSE FOR x=1 TO lax STEP 2:PEN 15:GOSUR 1 

540:PLOTR 4,0,FNcZ:NEXT 

980 NEXT:PEN 15:flag=D:x=1:u=1 

990 CLS#J:PLOT 540,320,15:DRAWR 68,0:DRA 

WR 0,-34:DRAWR-68,0:DRAWR 0, 34 : RETURN 
1000 

1010 ? AFFICHE LES MESSAGES 

1020 ? 

1030 posx=XPOS:PÜKE peng,eng(15):POKE pa 

perg,eng(14):TAG:FOR af=0 TO LEN(tex$i-1 
:MOVE posx+af#20,YPOS:PRINT MID$(tex$,af 

+1,1)3:NEXT:TAGOFF : RETURN 

1040 ? 

1050 ? COMPTE LES SYMROLS RESTANTS 

1060 ? 

1070 FOR m=1 TO 4:LOCATE 19,8+m:PRINT MI 

D$(STR$(222-LEN(djd$))+" ",m,1)3;:NEXT:R 

ETURN 

1080 

1090 ? ROTATION DE LA GRILLE 

1100 ? 

1110 DATA" @ GAUCHE," D DROITE"," H 

HAUT" ," B BAS","ENTER RETOUR”,, 

1120 GOSUB 1580:1F control THEN RETURN E 

LSE RESTORE 1110:SOUND 3,200, 25,5: CLS#2: 

FOR p=0 TO 1:FO0R q=0 TO 2:READ tex$:MOVE 
10+p#250,76-q#20:G0SUB 1O30:NEXT q,p 
1130 a$=UPPERS(INKEYS):1F a$="" THEN 113 

0 

1140 IF a$=CHR$(13) THEN RETURN ELSE IF 

INSTR(*GDHB" ,a$)=0 THEN 1130 

1150 IF a$="H"THEN c$=c$(1):FÔR i=1 TO h 

oy-t:c$(i)=c$li+l):NEXT:c$(hou)=c$ ELSE 
IF a$="B"THEN c$=c$(hou):FOR i=hou TO 2 

STEP-1:c$(i)=c$ti-1):NEXT:c$(1)=c$ 

1160 FOR y=1 TO hou:1F a$="D'THEN c$(y)= 

LEFTS(RIGHT$(c$(u),1)+c$(u),lax) ELSE IF 
a$="G'THEN c$(u)=RIGHT$(c$(y)+LEFT$(c$( 

y),1).lax) 

1170 FOR x=1 TO lax STEP 2:G0SUB 1540:PL 

ÔTR 4,0,FNCZ:NEXT:NEXT:SOUND 3,200, 25.5: 

GOTO 1130 

1180 

1190 ? INVERSION 

1200 

1210 DATA" G GAUCHE-DROITE"," H  HAUT-E 

AS"," V VIDEO*,,,"ENTER RETOUR" 

1220 GOSUB 1580:1F control THEN RETURN E 

LSE SOUND 3,200.25,5:RESTORE 1210: CLS#2: 





FOR p=0 TO 1:F0R q=0 TO Z:READ tex$:MOVE 
10+p#300, 76-q#20:60SUB 1030:NEXT q,p 

1230 a$=UPPERS(INKEY$):1F a$="° THEN 123 

0 ELSE IF a$="V"THEN SOUND 3,200,25,5 

1240 IF. a$=CHR$(13)THEN RETURN ELSE IF 1 

NSTR("GHV" ,a$)=0 THEN 1230 

1250 FOR y=1 TO hoy:1F a$="G"THEN c$=c${ 

y):FOR x=1 TO lax:MID$(c$(y),x, 1)=MID$(c 

$,laxti-x,1):NEXT ELSE IF a$="H°THEN c$l 

y)=c$(u)+LEFT$(c$(houti-y), lax) 

1260 IF a$="V"THEN FOR x=1 TO lax:MID$(c 

$ty),x, L)=HEXS(MAX(13-VAL("&"+MIDS(c$ (ui 

1%11)),-14#(MID$(c$(y),x,1)="E"))):NEXT 

1270 NEXT:FOR y=1 TO hou:c$(u)=RIGHT$(c$ 
(y),lax):FOR x=1 TO lax STEP 2:GOSUB 154 

O:PLÔTR 4,0,FNc2:NEXT x,u:SOUND 3,200.25 

«3:60T0 1230 

1280 ? 

1290 ? MESSAGE PRINCIPAL 

1300 ? 

1310 DATA "DEL EFFACER"," P  PENS"." R 

ROTATION" ,* I  INVERSE"," T  TRANSF 

ORME"," Q QUITTER", S  SAUVER"," 0 
OPTIONS" 

1320 CLS#2:RESTORE 1310:F0R t1=0 TO 1:F0 
R t2=0 TO J:READ tex$:MOVE 32+t1#260, 76- 
t2#18:G0SUB 1030:NEXT:NEXT:RETURN 

1330 

1340 ? TRANSFORMATION 

1950 ? 

1360 SOUND 3,200,25,5:G0SUB 940:tex$="EN 
TREZ VOS LETTRES"+STR$(la#ho)+" MAX" :CLS 
#2:MOVE 90,76:G0SUB 1030:tex$=" LETTRE 0 

U NOMBRE ASCII":MOVE 90,58:G0SUB 1030 
1370 tex$="ENTER POUR TERMINER - OP OPT 
ION':MOVE 5,40:G@0SUB 1030 

1380 FOR i=1 TO ho:FOR j=1 TO la:SYMBOL 

AFTER 32:0N ERROR GOTO 1490:0p=0 

1390 CLS#4:LOCATE#4, 1, 1:PRINT#4,STR$((i- 
Dælatj)+" "3;:LINE INPUT#4, ;car$ 
1400 op=INSTR(UPPERS(car$),"OP*):1F car$ 
=" "THEN 1480 ELSE IF op<>0 THEN 1430 
1410 car=VAL(car$):1F ASC(car$)(32 OR ca 
r>255 OR(car>9 AND car(32)THEN 1390 

1420 ‘IF car>31 THEN car$=CHR$(car ) 

1430 CLS#4:LOCATE#4,2,1:1F op(>0 THEN PR 
INT#4, "Entrez la satrice";:FOR att=1 TO 
9O00:NEXT ELSE PRINT#4," Patience” :ad= 
adcar+(ASC(car$)-32)#8 

1440 FOR k=0 TO 7:1F op<)0 THEN ON ERROR 
6OTO 1500:CLS#4:LOCATE#4, 1, 1:PRINT#4, "0 
P°+STR$(k+1) ;: INPUT, 5° *,c$:c$=BINS(VA 
L(*+"+c$),8) ELSE c$=BINS(PEEK(ad+k),8) 
1450 FOR 1=1 TO 8:y=(i-1)#8+k+1:x={ j-1)# 
8+1:1F MID$(c$,1,1)="1" THEN MID$(c$(u), 
x,1)="1" 

1460 NEXT 1,k:GOSUB 2780:F0R k={ TO B:F0 
R 1=1 TO Biu=(i-1)#8+kix=(j-1)#8+1 

1470 GOSUB 1540:NEXT 1,k 

1480 NEXT j,i:G0SUB 2780:0N ERROR GOTO 3 
290:RETURN 

1490 IF LEN(car$)=1 AND ASC(car$)>32 THE 
N RESUME 1430 

1500 SOUND 3,1000,80,5:RESUME 1390 

1510 

1520 ? AFFICHAGE DU POINT DANS LA GRILLE 
1530 

1540 LOCATE(x+1)\2,3+u:PRINT USING"&":FN 
ci$::PLOT 10+x#4,396-yx2,FNc3: RETURN 
1550 ? 


1560 ? CONTROLE SI LA GRILE EST VIDE 
1570 ? 

1580 c=0:i=1:WHILE c=0 AND i<=hoy:c=c-(c 

$(1)OSTRING$(lax, "E*)):i=i+1:WEND:contr 
ol=(c=0):1F control THEN SOUND 3, 2000, 90 
b 

L 

1590 RETURN 

1600-” 

1610 ” DECODE ET SAUVE LA GRILLE EN MEMO 
IRE 

1620 ? 

1630 GOSUB 1580:1F control THEN RETURN E 

LSE FOR i=1 TO hou:MOVE 12,396-2#i :DRAWR 
31#1a,0,14:NEXT:PAPER 14:PEN 15:CLS#2:W 
INDOW#2,1,20,22,25 

1640 SOUND 3,200, 20,5: CLS#2Z:tex#=" VOULEZ 
VOUS UTILISER DES" :MOVE 80,60:G0SUB 103 
D:tex$="CARACTERES UTILISATEURS" :MOVE 94 
+44:G0SUB 1030:ch$="":WHILE ch$<>"0*AND 
Ch$<>°N° :Ch$=UPPERS(INKEY$) :HEND:0N ERRO 
R GOTO 3290 

1650 FOR i=1 TO ho#la:tabl$(i)="":NEXT:M 
OVE 0,352:DRAMR 512,0,14 

1660 WINDOW 1,20,4,25:CLS:PAPER 14:WINDO 
à 1,20,1,25 

1670 ? 

1680 ? AFFICHE ET COMPTE LES COULEURS PA 
R CARACTERES 

1690 ? 

1700 FOR d=0 TO 1:MOVE 0,336-d#144:DRAWR 
128,0,15:DRAWR 0,-128:DRAWR-128, 0: DRAWR 
0,128:FO0R i=5 TO 12:LOCATE 1,i+9#d:PRIN 
T STRING$(4,"%°); | 

1710 NEXT:NEXT:FOR i=1 TO ho:FOR j=1 TO 
la:col$="":FOR k=0 TO 7:FOR 1=1 TO B 
1720 x=(j-1)#8+1:y=(i-1)#8+k+1:LOCATE(1+ 
D\2,5+#k:PRINT USING"&" ;FNc1$3;:PLOT 10+x 
#4,396-y#2,FNc3:C$=HEXS(FNC3):IF c$<"E" 
AND INSTR(coi$,c$)=0 THEN col$=col$+c$ 
1730 NEXT 1,k:FOR col=0 TO 13:1F INSTR(c 
ol$,HEX$(col))=0 THEN 1880 

1740 tex$="PEN"+STR$(col+1):MOVE 190,210 
:G0SUB 1030 

1750 FOR k=0 TO 7:c$="":u=(i-1)#8+k+iita 
mp$=c$(y):FOR 1=1 TO B:x={j-1)#8+1:1F MI 
D$(c$(u),x,1)C>HEX$(co1) THEN MID$(c$(u) 
1X,1)="E":c$=c$+"0" ELSE c$=c$+"1" 

1760 NEXT:FOR 1=1 TO B:x={ j-1)#8+1:LOCAT 
E(1+1)\2,14+k:PRINT USING"&" ;FNc1$; 

1770 NEXT:tex$=RIGHT$(* "+STR$(VAL("&X"+ 
c$)),3):MOVE 150,190-k#16:G0SUB 1030 
1780 tabl(k)=VAL(tex$) :c$(y)=tamp$:NEXT: 
IF ch$="N" THEN nun$="":G0TO 1810 

1790 CLS#2:tex$=" TAPEZ LA LETTRE OU ENTE 
R*:MOVE 10,60:G0SUB 1030:SYMBOL AFTER 32 
1800 CLS#4:LOCATE#4, 1, 1: PRINT#4, >" 3 :LIN 

E INPUT#4,num$ 

1810 IF num$="" THEN numsuymb=numsymb+i :n 
um=numsumb: IF INSTR(d dé, CHR$ (num) )>0 AN 
D num(256 THEN 1810 ELSE IF num)255 THEN 
CLS#2:G0SUB 2780:tex$="LIMITE DES 255 C 
*:MOVE 100,60:G0SUB 1030:SOUND 3, 2000, 90 
6:G0T0 1790 

1820 IF num$<(>°* THEN num=ASC(num$):1F n 
um<32 OR num>126 THEN 1800 

1830 IF num$>"" THEN IF INSTR(djd$, CHR$ 
(num))>0 THEN 1800 

1840 ? 

1850 ? FABRICATION DES LIGNES PROGRAMMES 
* SYMBOL . | 










1860 ? 
1870 djd$=djd$+CHR$ (num) :G0SUB 1070:tabl 
$((i-1)#latj)=tabl$((i-1)#la+j)#HEX$(nun 
12)+HEX$ (col) :symb$(num-32)="":FOR n=0 T 
0 7:syeb$ (nua-32)=synb$ (num-32)+HEX$ (tab 
l{n),2):NEXT:G0SUB 2780 

1880 NEXT col, j,i:FOR i=1 TO hola:sb$=" 
*:FOR j=1 TO LEN(tabl$ti))STEP 3 

1890 c2$="OF*+HEX$(VAL(*&"+MID$(tabl$(i) 
s1921))+2,2)+MID$(tabl$(i), j,2) 

1900 IF j>1 THEN sb$=sb$+"08"+c2$ ELSE s 
b$=sb$+c2$ 

1910 NEXT:1F LEN(sb$)>6 THEN sb$="1603"+ 
sb$+" 1604" 

1920 IF LEN(sb$)>6 THEN nundef$ (nundef = 
sb$:nundef=numdef+1 

1930 NEXT 

1940 CLS#2:WINDOWHZ, 1,20,21,25:tex$="0N 
CONTINUE ?*:MOVE 90,50:GO0SUB 1030 

1950 t$="":WHILE t$O"O"AND t$CO'N':t$=U 
PPER$(INKEY$) :MEND:1F t$="N" THEN 1990 
1960 tex$="AVEC LE MEME ?":MOVE 90,34:60 
SUB 1030 

1970 t$="":WHILE t$C"O"AND t$O'N':t$=U 
PPERS(INKEYS$) :MEND: IF t$="N" THEN 340 EL 
SE WINDOW 1,20,4,25:CLS:WINDOW 1,20,1,25 
:G0SUB 1320:G0T0 950 

1980 IF numdef=0 THEN GOSUB 1580:1F cont 
rol THEN 620 

1990 CLS#2:tex$=" SAUVEGARDE ?":MOVE 100, 
44:GOSUB 1030:t$="":WHILE t$C)"O"AND t$< 
°N°:t$=UPPERS(INKEY$) :WEND:IF t$="N°THE 
N IF t=22 THEN 620 ELSE 2380 

2000 CLS#2:tex$=" CHAINES OU DATAS ?*:MOV 
E 60,44:G0SUB 1030:tuypet="":MHILE types 
>*C'AND type$<> "D" :tupe$=UPPERS(INKEY$) : 
WEND 

2010 CLS#2:tex$="ENTREZ LE NOM DU FICHIE 
R':MOVE 10,60:G0SUB 1030:SYMBOL AFTER 32 
2020 CLS#4:LOCATE#4, 1, 1: INPUT#4, ">" ,nomp 
rog$:1F LEN(nomprog$)>8 THEN SOUND 3, 100 
0,90,5:G07T0 2020 

2030 DATA PREPAREZ UNE CASSETTE, APPPUYER 
ENSUITE SUR, PLAY ET REC PUIS,SUR UNE AU 
TRE TOUCHE 

2040 GOSUB 2780:1F PEEK(&AGAD)=0 THEN RE 
STORE 2030:CLS#2:FOR i=0 TO 3:READ tex$: 
MOVE 10,76-i#20:G0SUB 1030:NEXT:CALL &BB 
06 

2050 CLS#2:tex$=" SAUVEGARDE EN COURS" :MO 
VE 40,50:60SUB 1030 

2060 ? 

2070 * GENERATION DU FUTUR PROGRAMME (CH 
AINES OU DATAS) 

2080 , 
2090 numd=0:0PENOUT* ! *#nomprog$+". BAS" :G 
$=CHR$(34):IF tupe$="D'THEN 2220 

2100.’ 
2110 * PARTIE CHAINES 
2120 ? 
2130 numlig=10:FOR i=0 TO 222 
2140 IF nundef$(i)=""THEN 2180 ELSE numd 
nund+{ 
2150 numlig=numlig+10:PRINT#9, FNc3$ (numl 
ig)+" a$("+FNc3$(i)+")="+6$;: 

2160 FOR j=1 TO LEN(numdef$(i))STEP 2:1F 
NID$(numdef$(i),j,2)="OC"THEN PRINT#9,G 
$+"+CHR$(13)+"+6$; ELSE PRINTH9, CHR$(VAL 
('&"+MID$(nundef$(i),j,2)))3. 
2170 NEXT:PRINT#9,6$ 
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2180 NEXT:G0TO 2290 

2190 

2200 ? PARITE DATAS 

2210 ? 

2220 numlig=20:F0R i=0 TO 222:1F numdef$ 

(i)=* "THEN 2250 ELSE numo=numd+i 

2230 numlig=nunlig+i0:PRINT#9,FNcJ$ (numl 

ig)+* DATA "; 

2240 FOR j=1 TO LEN(numdef$(i))STEP 2:PR 

INTH9,HEX$(VAL("&"#MID$(numdef$(i), j,2)) 
)+","32NEXT:PRINTH9, °#° 

2250 NEXT:1F numd}Q THEN PRINT#9,°20 RES 

TORE 30:FOR i=0 TO"+STR$(numd-1)+" :t$="+ 

G$+"0"+66+":a$(i)="+G$+G$+" :MHILE t$0)"+ 

G$+"+"+6$+":a$(i)=a$(i)+CHRS(VAL("+6$+"& 

"+6$+"+t$)):READ t$:WEND:NEXT" 

2260 

2270 ? PARTIE COMMUNE AUX DATAS ET/OU SY 

MBOLS 

2280 ? 

2290 PRINT#9,"10 ";:1F numd>9 THEN PRINT 

#9,"DIM a$(";FNc3$(numd);"):"; 

2300 PRINT#9,"MODE O:SYMROL AFTER 32°::F 

OR i=0 TO 13:PRINTR9,":INK"+STRS(i+2)+#", 
"+FNci$(pe(0,i));:1F peti,i)<>pe(0,i)THE 

N PRINT#9,","#FNc3$(pell,i)); 

2310 NEXT:PRINT#9 

2320 FOR i=0 TO 222 

2330 IF symb$t(i)<>""THEN numlig=numlig+l 

O:PRINTH9,FNc3$(nunlig);" SYMBOL° ;STR$(i 
+32);:F0R j=1 T0 LEN(symb$(i))STEP 2:PRI 
NT#9,","+FNCI$(VAL("&"+MIDS (sumb$(i), j,2 
13); :NEXT:PRINT#9 

2340 NEXT : CLOSEOUT 

2350 ? 

2360 ?* FINI !!! 

2370 ? 

2380 CLS#2:tex$="JE SAUVE LE TABLEAU 7?" 
MOVE 90,60:G09UB 1030:a$="":WHILE a$<°N 
*OR a$>"0":a$=UPPERS(INKEYS):HEND: IF a$= 
"O"THEN CLS#2:a$="2":GOSUB 2620 

2390 CLS#2:WINDOW#2, 1,20,21,25:tex$="ON 
ARRETE ?":MOVE 90,50:G0SUB 1030 

2400 t$="":WHILE t$C)"O"AND t$<2°N":t$=U 
PPERS(INKEYS) :MEND:1F t$="N'THEN IF t=22 
THEN 600 ELSE 1940 

2410 DATA 1,24,20,6,26,0,2,8,10,12,14,16 
18,22 

2420 RESTORE 2410:FOR i=0 TO 13:READ c:1 
NK i,c:NEXT: INK 14,1,24:INK 15,16,11 
2430 PEN 1:PAPER O:BORDER 1:MODE 1:5YMBO 
L AFTER 32:END 

2440 ? 

2450 ’ OPTIONS 

2460 ? 

2470 DATA “1 CHARGER UN TABLEAU”,"2 SA 
UVER UN TABLEAU","3 SYMBOLS INTERDITS", 
"4 RETOUR AU MENU" 

2480 CLS#2:RESTORE 2470:FOR t1=0 TO 3:RE 
AD tex$:MOVE 32,76-t1#1B:GOSUB 10JO:NEXT 
2490 a$="":WHILE a$<"1"OR a$>"4" :a$=INKE 
YS:WEND:IF a$="4"THEN RETURN 

2500 ? 

2510 ? SYMBOLS INTERDITS À LA REDEFINITI 
ON 

2520 

2530 CLS#2:1F a$<"3"THEN 2620 ELSE tex$= 
"ENTREZ LETTRES OU NOMBRE ASCII" :MOVE 5, 
70:G0SUB 1030:tex$="ENTER POUR TERMINER" 
:MOVE 20,50:60SUB 1030:SYMBOL AFTER 32 
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2540 CLS#4:LOCATE#4, 1, 1: PRINT#4, °>° 3 :LIN 

E INPUT#4, ;car$:0N ERROR GOTO 2570 

2550 IF car$=""THEN GOSUB 27B0:RETURN EL 

SE car=VAL(car$):1F ASC(car$)<32 OR car> 
255 OR(car>9 AND car<32)THEN 2540 ELSE 1 

F car)31 THEN car$=CHR$(car) 

2560 CLSK4:PRINTH4, CHRS (ASC ( car $) )+° EST 
BON (O/N) ?*:a$="":WHILE a$<"N'OR a$)°0 
":a$=UPPERS(INKEYS$) :WEND:1F a$="N°THEN 2 

540 ELSE djd$=did$+CHR$ (ASC (car$) ) :GOSUR 
1070:S0UND 3,200,10:60T0 2540 

2570 IF LEN(car$)=1 AND ASC(car$)>31 THE 
N RESUME 2560 

2580 SOUND 3,1000,80.5:RESUME 2540 

2590 ? 

2600 * CHARGEMENT QU SAUVEGARDE DE LA GR 
ILLE 

2610 

2620 tex$="ENTREZ LE NOM DU FICHIER" :MOV 
E 32,50:G0SUB 1030:SYMBOL AFTER 32 

2630 CLS#4:PRINT#4,"> "3;:LINE INPUT#4, ;c 
ar$:1F LEN(car$))8 THEN 2630 

2640 GOSUB 2780:1F. car$=""THEN RETURN EL 
SE IF a$="2*THEN 2710 

2650 DATA PREPAREZ LA CASSETTE, APPPUYER 
ENSUITE SUR,PLAY PUIS ENSUITE, SUR UNE AU 
TRE TOUCHE 

2660 IF PEEK(&ABAO)=0 THEN RESTGRE 2650: 
CLS#2:FOR i=0 TO 3:READ tex$:MOVE 10,76- 
i#20:G0SUB 10J0:NEXT:CALL &BBO6 

2670 OPENIN" !"+car$+".REF" : INPUT#9, la, ho 
,djd$:lax=8#la:hoy=8#ho 

2680 FOR i=0 TO 13:INPUT#9,pe(0, i),pel1, 
i):INK i,pe(0,i),peti,i):NEXT 


© 2690 FOR i=1 TO hou: INPUTH9,c$(i):NEXT:F 


OR i=1 TO 222: INPUT#9,symb$(i):NEXT:FOR 
i=1 TO 222: INPUT#9, nundef $(i ) :NEXT : CLOSE 
IN 

2700 WINDOW 1,5,1,3:CLS:WINDOW 1,20,4,25 
:CLS:WINDOW 1,20,1,25:G0T0 950 , 

2710 IF PEEK(&AGAD)=0 THEN RESTORE 2030: 
CL5#2:FOR i=0 TO J:READ tex$:MOVE 10,76- 
i#20:G0SUB 10J0:NEXT:CALL &BBD6 

2720 OPENOUT"!"+car$+".REF":WRITEH9, la,h 
o,djd$ 

2730 FOR i=0 TO 13:WRITE#9,pe(0, i),peti, 
i):NEXT 

2740 FOR i=1 TO hoy:WRITE#9,c$(i):NEXT:F 
OR i=0 TO 222:WRITE#9, symb$( i) :NEXT:FOR 
i=0 TO 222:WRITE#9, numdef $(i ) :NEXT:CLOSE 
OUT: RETURN 

2750 ? | 

2760 * SYMBOLS POUR LA GRILLE 

2770 ? : 

2780 SYMBOL 35,32,32, 32,80, 32,32, 32 
2790 SYMBOL 36,2,2,2,5,2,2,2 : 

2800 SYMBOL 37,136,136,136,136,136,136,1 
dé, 255 Û 

2810 SYMBOL 92,112,112,112,112,112,112,1 
12 

2820 SYMBOL 96,7,7,7,7,7,7,7 

2830 ? 

2840 ? REDEFINITION DE L’ALPHABET (PSEUD 
O-MODE 1) 

2850 ? 

2860 SYMBOL 43,0,0,32,32,112,32,32 

2870 SYMBOL 45,0,0,0,0,240 

2880 SYMBOL 48,0,96,144,144,176,208, 144, 
9% 

2890 SYMBOL 49,0,32,96, 32,32, 32,32, 112 





2900 SYMBOL 50,0, 96, 144, 16,32, 64, 144, 240 
2910 SYMBOL 51,0,9%6, 144, 16,96, 16, 144,96 
2920 SYMBOL 52,0, 32,64, 128, 160, 240, 32, 11 
2 

2930 SYMBOL 53,0, 240, 144, 128, 224, 16, 144, 
96 | 

2940 SYMBOL 54,0,96, 144, 128, 224, 144,144, 
9% 

2950 SYMBOL 55,0, 240, 144, 16,32, 64,64, 64 
2960 SYMBOL 56,0,96, 144, 144,96, 144, 144,9 
b 

2970 SYMBOL 57,0,96, 144, 144,112, 16, 144,9 
6 

2980 SYMBOL 63,0, 112, 136,8, 16, 32,0. 32 
2990 SYMBOL 65,0,96, 240. 144, 144, 240, 144. 
téé 

3000 SYMBOL 66,0, 224,144, 144,224, 144, 144 
,224 

3010 SYMBOL 67,0,96, 144, 128, 128, 128, 144, 
96 

3020 SYMBOL 48,0,224, 144, 144, 144,144, 14à 
,224 

3030 SYMBOL 69,0, 240, 128, 128, 224, 128, 128 
.240 

3040 SYMBOL 70,0, 240, 128, 128, 224, 128, 128 
,128 

3050 SYMBOL 71,0,96, 144, 128, 128, 176, 144, 
112 

3060 SYMBOL 72,0, 144,144, 144,240, 144, 144 
,144 

3070 SYMBOL 73,0, 112, 32,32, 32,32, 32,112 
3080 SYMBOL 74,0, 112,32, 32, 32,32, 160,64 
3090 SYMEOL 75,0, 144,144, 160, 192, 160, 144 
,144 

3100 SYMBOL 76,0,64,64,64,64,64, 64,112 
3110 SYMBOL 77,0,144,240, 144,144, 144, 144 
,144 

3120 SYMBOL 78,0, 144,208, 176, 144, 144, 144 
,144 

3130 SYMBOL 79,0,96,144,144, 144,144, 144, 
96 

3140 SYMBOL 80,0, 224,144, 144, 224, 128, 128 
,128 

3150 SYMBOL 81,0,96,144,144,144, 144,160, 
80 

3160 SYMBOL 82,0,224, 144, 144,224, 160, 144 
144 

3170 SYMBOL 83,0,96, 144, 128,96, 16, 144,96 
3180 SYMBOL 84,0, 112, 32,32, 32, 32, 32, 32 
3190 SYMBOL 85,0, 144,144, 144, 144,144, 144 
,% 

3200 SYMBOL 86,0, 144,144, 144, 144, 144,96, 
96 

3210 SYMBOL 87,0, 144,144, 144, 144, 144,240 
,144 

3220 SYMBOL 88,0, 144,144,144,96, 144,144, 
144 

3230 SYMBOL 89,0, 80, 80, 80, 112, 32, 32, 112 
3240 SYMBOL 90,0, 240, 16, 32,64, 128, 128, 24 
0 

3250 RETURN 

3260 * 

3270 * UNE ERREUR 1‘ 

3280 * 

3290 1F ERL=450 THEN paperg=&8339: peno=k 
8338: adcar=PEEK(&R296)+256#PEEK(&B297) :R 
ESUME 490 

3300 INK 1,0:PEN 1:tex$="ERREUR"+#STRS (ER 
RI+* EN LIGNE"4STRS(ERL) :CLS#2:MOVE 10,7 
0:G0SUB 1030:END 








PROTEGEZ 
VOS REVUES ! 


CPC Revue standard Amstrad Schneider 
dossier classeur jean, logo et titre blanc 
Prix TTC : 74F 

Abonnés : 51F 


THEORIC, Revue des utilisateurs d’ORIC 
dossier classeur gris, logo titre rouge 

Prix TTC F 

Abonnés : 59F 


MEGAHERTZ Magazine 

dossier classeur noir, logo et titre doré 
Prix TTC :78F 

Abonnés : 55 F 
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z La Haie de Pan 
Non Abonnés 35170 BRUZ 


Theoric Abonnés 
Non Abonnés 
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SCRIBE 


SN 
Olivier CHEDRU 










cribe est un mini-traitement de texte qui réunit des fonctions 
très pratiques. Il est prévu initialement pour fonctionner avec 
un lecteur de disquettes mais peut être adapté facilement en 
supprimant les fonctions ITAPE et IDISC et en modifiant le 
programme. 


































































































































































































































































































































































































Après un RUN, une page blanche appa- 
raît, ainsi que la liste des fonctions en 
bas. 

L'éditeur est plein écran et les déplace- 
ments se font avec les touches du cur- 


seur. Les touches ‘’DEL"’ et ‘’CLR'’ gar- 
dent leurs fonctions habituelles. 
‘’ENTER"" provoque un retour à la ligne. 
L'appui sur ‘’ESC'’ fait apparaître un 
menu réunissant différentes fonctions : 


Une ligne téléphonique est à votre disposition, vous met- 


tant en contact direct avec la rédaction. Ceci est un ser- 
vice sans égal ! Respectez simplement les horaires et les 


jours que nous vous indiquons : 


MERCREDI de 9 h à 12h et de 14h à 17 h. 


— nouvelle page : permet de choisir une 
page parmi les 20 disponibles ; 

— sauvegarde et chargement : sauve et 
charge des pages (lors de la sauvegarde, 
vous aurez le choix entre toutes les 
pages (20) ou une seule page) ; 

— retour : provoque le retour à la feuille 
que vous étiez en train d'éditer ; 

— impressions : vous pouvez imprimer 
toutes les pages (20), une seule ou plu- 
sieurs. Les pages seront imprimées les 
unes à la suite des autres, mais vous 
pouvez faire deux colonnes avec ‘marge 
gauche” ; 

— efface : efface la page spécifiée après 
confirmation ; 

— marge gauche : sélectionne la marge 
d'impression et permet ainsi de faire 
deux colonnes ou de centrer un docu- 
ment ; 

— retour arrière : fait reculer le papier sur 
l'imprimante jusqu'en haut de la page qui 
vient d'être imprimée (utile lorsque l'on 
imprime avec deux colonnes) ; 

— arrêt : fin de programme. 


VARIABLES UTILISEES 


AD Adresse texte 

AD1 Adresse originale 

C$ Curseur 

A$,B$ Chaînes à emplois multi- 
ples 

F Numéro de la feuille à 
imprimer 

NUMPAGE Numéro de la page en 
cours : 

OK Flag d'entrée de numéro 

NAMES$ Nom du fichier 

1,J Indices de boucles 

X,Y Coordonnées du curseur 

Z Longueur d'une page (880 
caractères) 

MG : Marge gauche 

N Indice de boucle 

AF Adresse d'affichage 

U Adresse du caractère 
ASCII recueilli 

A Valeur de A$ 

T$ Support (cassette ou dis- 
quette) 

TY Indice d’incrémentation 

H Indice de boucle 

FONCTIONNEMENT 


DU PROGRAMME 


Scribe utilise des routines en langage 
machine implantées à partir de l'adresse 
&8500. Elles pérmettent une rapidité 


Allo 


VENDREDI de 9 h à 12 h seulement. 
Tout appel en dehors de ces créneaux sera refoulé : 
dépensez pas inutilement votre argent ! 


CC. 


Le numéro : 99.52.98. 11. 99.52.98.11. 





d'exécution largement supérieure à celle 
du Basic. 

La routine implantée en ligne 140 se 
charge de vider une page de 880 carac- 
tères débutant à l'adresse stockée dans 
la variable AD. 

En ligne 110, le vecteur &BB1B est uti- 
lisé pour avoir une réponse instantanée 
lors de l’appui sur une touche quelcon- 
que. 

En ligne 1440, on utilise l'adresse 
&BB5A pour afficher une page. 

Le reste du programme est entièrement 
en Basic. 


REMARQUES 


La capacité de mémoire des CPC a limité 
le nombre de pages à 20, ce qui est déjà 
suffisant. Ce programme n'utilisant pas 
de DIM MACHIN(2000) pour le stockage 
des textes, la place mémoire disponible 
est supérieure à celle qu'elle serait avec 
cette méthode. 

L'option retour arrière du menu n'est pré- 
cisée que sur une seule page. Au-dessus 
de ce nombre, il sera nécessaire de faire 
avancer légèrement le papier. 

En cas d'arrêt du programme ou d'erreur 
de manipulation (fichier non trouvé), le 
retour au menu est possible par l'appui 
sur ENTER sur le pavé numérique. 

Le Reset par CTRL SHIFT ESC est impos- 
sible, et la touche ESC est condamnée 
pour des raisons de sécurité. 

En ligne 20, les POKE &B8D1,0 et POKE 
&B8D2,23 servent à accélérer la vitesse 
du magnéto en cas d'enregistrement sur 
cassette. Notez que cette vitesse est 
modulable selon la valeur du POKE 
&B8D2,X (plus X est petit, plus c'est 
rapide). La vitesse initiale est d'environ 
4000 bauds. 


20 RE —————— = 

20 REM (c) Oiivier Chedru & CPC 

S0 RE — 

4D REM MINI-TRAITEMENT DE TEXTE 

50 REM 

60 KEY 139,"GOT0 350"+CHR$(1J):KEY DEF 6 

6,1.252:POKE &RDEE,201:POKE &B8DI,0:POKE 
&PBD2,23:DIM Fi20):MG=1:WIDTH 40:1F HIM 

EM>=42619 THEN OPENOUT'd':MEMORY &3FFE:C 

LOSEOUT 

70 MODE 1:INK 0.15:BORDER O:INK 1.3:PAPE 
R O:PEN 1:CLS 

80 LOCATE 15.1:PRINT'BLOC NOTES" 

90 LOCATE 1.2:PRINT STRING$ (40, 154) 

100 B$=* DEL CLR ENTER *+CHR$(240)+CH 

R$(241)+CHR$(242)+CHR$(243)+"  ESC=MENL" 
110 AD=&4000:’ ADRESSE DES FEUILLES 

120 WINDOW#1,1.40,25,25:INK 2,25:PEN#1.2 
:PAPER#1.1:CLS#1:LOCATE #1.20-LEN(R$)/27, 

L:PRINT #1,B$ 

130 WINDOW 1,40,.3,2Z4:CLS 

140 ? ROUTINE DE £ECTURE DE TOUCHE 

150 TY=0:A$="CD{PPRJ2009809" :FOR 1={ TO 

LEN(A$) STEP 2:P0KE &9500+TY. VAL("&"+MID 

$SUA$,1,2)):TY=TY+1:NEXT 

160 2=22#40:°NB LIGNES PAR FEUILLES 





170 GOTO 200 

180 TY=0:A$="21"+RIGHTS(HEXS (AD. 4),2)+LE 
* FT$CHEX$(AD.4).2)+"01"+#RIGHTS(HEXS(Z,4). 

Z+LEFTS(HEX$(2,4).2)+"3E2077230878B120F 

7C9*:FOR 1=1 TO LEN(A$) STEP 2:POKE &850 

D+TY. VAL(®&*4MIDS (AS. 1,2) ) :TY=TY+L:NEXT: 

CALL 88500: RETURN 

190 *GOSUB 130 VIDE UNE PAGE DEBUTANT 

À L’ADRESSE STOCKEE DANS AD 

200 ’VIDE LES 20 PAGES 

210 CLS#1:PRINT#1." PATIENCE ... *:AD=AD 

-ZLiFOR N=1 TO 20 

220 AD=AD+Z:G0SUR 180 

ZJ0 NEXT 

240 PRINT#I 

250 LOCATE#1. 20-LEN(B$)/2.1:PRINT#I. Es 

260 AD=&4009:AD1=&4000 : NUMPAGE=1 

270 U=&9800: C$=CHR$ (143) :X=1:Y=1:LOCATES 

141.1:PRINT#I.NUMPAGE :GOSUR 1440 

280 POKE U.D:CALL &9500:1F PEEK(U)=0 THE 

N 280 

290 IF PEEK(U)=240 THEN GOSUE 1190 

300 1F PEEK(U)=241 THEN GÜSUR 1220 

310 IF PEEK(U)=242 THEN GOSUB 1250 

320 IF PEEK(U)=243 THEN GOSUR 1290 

330 1F PEEK(U)=127 THEN GOSUR 1330 

340 IF PEEK(U)=16 THEN GOSUR 1370 

350 IF PEEK(U):=32 AND PEER(U)<=1931 AND 

PEEK(U)<>127 THEN GOSUR 1390 

360 IF PEEK(U)=252 THEN 400 

370 IF PEEK(U)=13 THEN GOSUP 1670 

380 GOTO 280 


390 ? MENU 
400 CLS:PRINT:PRINT'  MENU:" :PRINT:PRIN 
T* 1 - NOUVELLE PAGE":PRINT: PRINT" 2 - 5 


AUVEGARDE " : PRINT : PRINT" 3 - CHARGEMENT": 
PRINT:PRINT" 4 - RETOUR" :PRINT:ERINT" 5 
— IMPRESSIONS" :PRINT:PRINT' 6 - EFFACEME 
NT':PRINT:PRINT® 7 - MARGE GAUCHE: * :MS 
410 PRINT:PRINT" 8 - RETOUR ARRIERE* :PRI 
NT:PRINT” 9 - ARRET” 

420 AS=INKEYS:1F Aÿ<'{* OR 455°G* THEN 4 
20 

430 A=VAL(A$) 

440 ON À GOTO 450,490.590. 650.629. 1020. 1 
510.1570, 1000 

450 CLS:INPUT* NUMERO DE LA PAGE (1-20) 
:°,4$ 

460 IF LEN(A$)=9 OR LEN(AS)>2 23 
470 N=VAL(AS):IF N€1 OR No20 THEN 457 
480 NUMPAGE=N: AF=(AD1-Z)+{Z#N) :AD=AF : CLS 
:GOSUB 1460:G0T0 270 

490 ? SAVE 

500 CLS:PRINT' CASSETTE QU DISQUETTE * {C 
/D)° 

510 A$=UPPERS(INKEYS):IF A$<>'C" AND 4$< 

>*D* THEN 510 

520 T$=A$ 

530 GGSUB 1600 

540 PRINT:PRINT SAUVE :°:PRINT:PRINT" 1 

- TOUTES LES PAGES" :PRINT: PRINT" 2 - UNE 
PAGE" 

550 A$=INKEY$:1F A$<'1" OR A$>"2° THEN 5 

50 

560 OK=1:A=VAL(A$):1F A=1 THEN 640 

570 GOSUR 790:0K=0 

580 DEP=(AD1-Z)+(Z#A):FIN=DEP+2:G0T0 112 

0 


390 CLS:PRINT" CASSETTE QU DISQUETTE (C/D 
).7° 





600 A$=UPPERS(INKEYS):1F A$<>"C" AND A$< 
>*D" THEN 600 

biD T$=A$ 

620 GOSUR 1600 

630 60TO 1070 

640 OK=0:DEP=ADI :FIN=DEP+(7#20) :GÜTO 112 

(e] 

850 CLS:AF=(AD1-Z)+(Z#NUMPAGE ) : AD=AF : G0S 

UB 1480:G0T0 270 

bbO * IMPRESSIONS 

670 CLS:PRINT' IMPRIMER: " :PRINT:PRINT® 1 
- TOUTES LES FEUILLES (20)":PRINT: PRINT" 
2 - UNE FEUILLE" :PRINT:PRINT" 3 - PLUSI 

EURS FEUILLES" :PRINT:PRINT" 4 - MENU‘ 

680 A$=INKEY$:IF A$<"1" OR A$>"4" THEN b 

80 

690 A=VAL(A$) 

700 ÜN À GÔTO 710,790, 880, 400 

710 CLS:PRINT'CONFIRMATION (O/N) 7° 

720 A$=UPPERS(INKEYS):1F A$<>"0" AND A$« 

D'N" THEN 720 ELSE IF A$="0" THEN 740 EL 

SE IF A$="N" THEN 660 ELSE 720 

730 ? IMPRIME LES 20 FEUILLES 

740 GOSUB 1490:FOR 1=1 TO 20:CLS:PRINT'I 

MPRESSION DE LA FEUILLE" :1I 

750 FOR J=(ADI-2)+(2#1) TO ((ADI-Z)+(7#1 
))+2 STEP 40:IF J={(ADI-Z)+(2#1))+2 THEN 
770 

760 A$="":FOR H=0 TO 39:A$=A$+CHRS(PEEK( 

J+H)):NEXT:PRINTHB. A$::NEXT J:PRINTHB 

770 NEXT I:PRINT CHR$(7):GOTO 400 

780 ? IMPRIME 1 FEUILLE 

790 CLS:INPUT'QUELLE FEUILLE (1-20:ENTER 

=MENU) :°,A$:1F A$="" THEN 660 

800 IF LEN(A$)<1 OR LEN(A$)>2 THEN 790 
810 A=VAL(A$):IF AC OR A>20 THEN 790 
820 IF OK=1 THEN RETURN 

830 CLS:PRINT" IMPRESSION DE LA FEUILLE": 
A 

840 GOSUR 1490:FOR J=(ADI-Z)+(Z#A) TO ({ 
ADI-Z)+(2#A))+2 STEP 40:1F J=((ADI-Z)+(2 
#A))+2 THEN 860 

850 A$="":FOR H=0 TO 39:A$=A$+CHR$ (PEEK( 

J+H)):NEXT:PRINTA#O. AS: :NEXT J':PRINT#B 

‘860 PRINT CHR$(7):G0T0 660 

870 ’ IMPRIME PLUSIEURS FEUILLES 

B80 CLS:INPUT'NOMBRE DE FEUILLE (-20:EN 
TER=MENU) :"4A$:1F A$="" THEN 600 

890 IF LEN(A$)41 OR LEN(A$)>2 THEN 880 
900 A=VAL(AS):1E A‘{ OR A>20 THEN 690 
910 CLS:PRINT'ENTREZ LES NUMEROS DES" :A: 
“FEUILLES":FOÜR 1=1 TO À 

929 INPUT'-",F(I):FCI)=INT(F(I)):IF FUI) 
1 OR F(1)320 THEN PRINT CHR$(7):G0TO 92 

(e] 

930 NEXT 

940 IF OK=1 THEN RETURN 

950 GOSUB 1490:FO0R 1=1 TO A:K=F(1):CLS:P 
RINT' IMPRESSION DE LA FEUILLE" :;K 

960 FOR J=(ADI-Z)+(2#K) TO ((ADI-2)+(24K 
))+2 STEP 40:1F J=((ADI-Z)+(2#K))+2 THEN 
980 

970 A$="":FOR H=0 TO 39:A$=A$+CHR$S(PEEK( 
J+H)):NEXT:PRINTHB, A$::NEXT J:PRINTHB 
980 NEXT I:PRINT CHR$(7):G0TO 400 

990 ?’ ARRET 

1000 CLS:END 

1010 * EFFACE UNE FEUILLE 

1020 CLS:PRINT'EFFACEMENT . CONFIRMATION 
(O/N) ?° 





1030 A$=UPPER$(INKEYS):1F A$<>°0" AND A$ 
©"N" THEN 1030 ELSE IF A$="0* THEN 1040 
ELSE IF A$="N" THEN 400 

1040 CLS: INPUT'QUELLE PAGE ? (1-20:ENTER 
=MENU) :",A$:1F A$="" THEN 400 

1050 IF LEN(A$)<1 OR LEN(A$)>2Z THEN 1040 
ELSE A=VAL(A$):1F A<1 OR A>20 THEN 1040 
1060 AG=AD:AD=(ADI-Z)+(2#A):GOSUB 180:PR 
INT CHR$(7):AD=AG:G0TO 400 

1070 ? CHARGEMENT 

1080 1F T$="C* THEN 1100 

1090 LOAD NAME$:GOTO 400 

1100 :TAPE:CLS:PRINT'PRESSEZ UNE TOUCHE 

S.V,P.":CALL &BBO6:LOAD NAME$ 

1110 :DISC:G0TO 400 


1120 ° SAVE 
1130 IF UPPERS(TS)="C" THEN 1150 
1140 CLS:SAVE NAMES,B, DEP.FIN-DEP:GOTO 4 


06 

1150 CLS:PRINT'FRAPPEZ UNE TOUCHE 5, V,P. 
":CALL &BPOb 

1160 :TAPE:SAVE NAME$,B, DEP,FIN-DEP 

1170 CLS:G0T0 400 

1180 ? HAUT 

1190 1F Y=1 THEN RETURN 

1200 GOSUB 1460:Y=Y-1:AD=AD-40:GOSUR 144 
O:RETURN 

1210 ? BAS 

1220 IF Y=Z2 THEN RETURN 

1230 GOSUB 1460:Y=Y+1:AD=AD+40:GOSUB 144 
O:RETURN 

1240 * GAUCHE 

1250 IF X=1 AND Y=1 THEN RETURN 

1260 IF X=1 AND Y>1 THEN GOSUB 1460:X=40 
:Y=Y-1:AD=AD-1:GOSUB 1440:RETURN 


1270 GOSUB 1460:X=X-1:AD=AD-1:GO0SUB 1440 

RETURN 

1280 ? DROITE 

1290 IF X=40 AND Y=22 THEN RETURN 

1300 IF X=40 AND Y<22 THEN GOSUR 1460:X= 

1:Y=Y+1:AD=AD+1:GOSUR 1440: RETURN 

1310 GOSUR 1460:X=X+1:AD=AD+1:G08UR 1440 

RETURN 

1320 ? DELETE 

1330 IF X=! AND Y=1 THEN RETURN 

1340 IF X=1 AND Y>{ THEN GOSUR 1460: X=àû 

:Y=Y-1:AD=AD-1:POKE AD,32:G0SUB 1440:RET 

URN 

1350 GOSUE 1460:X=X-1:AD=AD-1:PÛRE AD, 32 

:G0SUP 1440: RETURN 

1360 * CLEAR 

1370 POKE AD.J2:RETURN 

1380 *AFFICHE CARACTERE 

1390 IF X=40 AND Y=22 THEN RETURN 

1400 POKE AD.PEEK{U) 

1410 LOCATE X.Y:PRINT CHR$(PEEK(U) ) : : AD= 

AD+1:X=X+1:1F X=41 THEN X=1:Y=Y+#1:1F Y=2 

3 THEN X=40:AD=AD-1 : 222 

1420 GOSUR 1440:RETURN 

1430 ? MET LE CURSEUR 

1440 LOCATE X.Y:PRINT C$::RETURN 

1450 ? MET LE CARACTERE 

1460 LOCATE X,Y:PRINT CHR$(PEEN(AD))::RE 

TURN 

1470 ? ROUTINE AFFICHE PAGE 

1480 TY=0:A$="01700321"+RIGHTS(HEXS(AF. 4 
),2)4LEFTS(HEXS(AF,4),2)+"7ECD5ABB230B78 

B120F6C9" :FÜR 1=1 TO LEN(A$) STEP Z:POKE 
&9200+TY,VAL("&"+MIDS(A$, 1,2)):TY=TY+1: 

NEXT:CALL &9200:RETURN 


1490 ? CARACTERES MINI 
1500 PRINTHB, CHRS (27) : "M": RETURN 
1510 * PAUSE DE LA MARGE 
1520 CLS:PRINT*PAUSE DE LA MARGE GAUCHE" 
:PRINT:INPUT"ENTREZ LE NOMBRE DE COLONNE 
S t1-50) *.A$ 
530 IF A$=*" GR LEN(AS)>2 THEN 1520 ELS 
E A=VAL(A$):IF A1 OR A>50 THEN 1520 
1540 PRINT:PRINT'ALLUMEZ L’ IMPRIMANTE ET 
PRESSEZ UNE :PRINT' TOUCHE: ":CALL &BBCÉ 
1550 FRINTHB, CHR$ (27) : "1"; CHRE(A) : PRINT 
CHR#(7):MG=A:GOTO 400 
1560 * RETOUR ARRIERE (CETTE FONCTION N° 
EST PRECISE QUE POUR 1 SEULE PAGE). 
1570 CLS:PRINT'RETOUR ARRIERE: ALLUMEZ L 
IMPRIMANTE" : PRINT" PUIS PRESSEZ UNE TOUC 
HE*:CALL &RPO6 
1580 FOR 1=1 TO 26:PRINTHB, CHRS (27): j ; 
CHRS(IB)::NEXT: PRINT CHR$(7):G0TO 400 
1590 * ENTREE DU NOM DU FICHIER 
1600 PRINT:FRINT'ENTREZ LE NOM DU FICHIE 
R':INPUT* (8 LETTRES AU MAXIMUM) :".A$ 
1610 IF A$="* THEN NAME$=" ! BLOC. NOT" :RET 
URN 
1620 IF LEN(A$)>8 THEN AS=LEFTS(A$,B) 
1630 FÜR 1=0 TO 47:1F INSTR(AS, CHRS(1))< 
30 THEN CLS:6070 1600 
1640 NEXT 
1650 NAME$=" !*"+A$: RETURN 
1660 * ENTER (RETOUR À LA LIGNE) 
1670 IF Y=22 THEN RETURN 
1680 GOSUB 1440:AD=AD+(41-X) :X=1 :Y=Y+1 :6 
OSUB 1440:RETURN 
1690 ? <<écéte FIN >>>) 
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SAISIE 
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Ce programme permet de créer un masque de saisie de type pro- 
fessionnel que vous pourrez incorporer à vos propres programmes. 





Ce masque est idéal pour une saisie type chaque réponse (ne pas oublier, si plus 
fichier d'adresses, mais peut être adapté de 11 questions, de dimensionner la 


pour faire n'importe quoi ; pour cela, il variable B$ (nombre de questions), en 
suffit de placer d'autres questions avec début de programme). 
leurs coordonnées après la ligne 230. Ce masque permet d’avoir l'ensemble 


Pour faire une sortie fichier sur disquette, des questions sur l'écran et de mieux 
il faut continuer la suite des indices de répondre à ces questions. 


QUELQUES TRUCS ET REMARQUES 


Pour annuler une réponse en cours, il faut appuyer sur la touche ‘’DEL'’. La longueur 
de chaque réponse est fixée par la variable FE$. Validation de chaque réponse par 
RETURN". 


L'ajout des caractères se fait de droite à gauche jusqu’en butée. La moindre trans- 
forration dans le module affichage réponse écran peut avoir des répercussions inat- 
tendues. 

Attention aussi de ne pas faire de BREAK au milieu du programme avec un arrêt en 
inverse vidéo car il repartirait mal. En effet, la particularité parfois génante de l’inver- 
sion vidéo AMSTRAD est de jouer en bascule, et cela dépend dans quel mode il est 
arrêté. 











LO REM 

20 REM  MASQUE DE SAISIE 

30 REM 

40 REM (C) D & C DESRORDES.C à CPC 
Î 


SÙ REM VERSION (1) le 30 MAÏ 1986 


&Ü REM 


80 CLEAR 

90 INVERSES=CHR$ (24) 

100 MODE 2 

116 BORDER 26:INK O.Z6:INx 1.0 
120 REN - 
130 REM AFFICHAGE DU MASQUE 

140 REM ------------ 

150 FLAG=0 

160 LOCATE 1,2:PRINT®NOM :* 

170 LOCATE 20,2:PRINT* PRENOM : * 
180 LOCATE 1,4:PRINT'TEL PERSO : * 
190 LOCATE 26,4:PRINT'TEL TRAV : * 





200 X=6:Y=2:T=1:FE$=" ":GOSUR 
330:R$(1)=B$:LOCATE X+1.Y:PRINT R$(1) 
210 X=28:Y=2:T=2:FE$=" *:GOSUR 

330:B$(2)=R$:LOCATE X+1.Y:PRINT B$(2) 

220 X=13:Y=4:T=3:FE$=" *:G0SUE 
330:B$(3)=B$:LOCATE X+1,Y:PRINT B$(3) 

230 X=37:Y=4:T=4:FES$=" ":G0S 


UB 330:B$(4)=B$:LOCATE X+1,Y:PRINT B$(4) 

240 LOCATE 5,10:PRINT'CORRECTION (O)UI/( 

NION  "::PRINT INVERSE$:" © *:INVERSES 

250 R$=UPPERS(INKEYS):1F R$="" GOTG 250 

260 IF ASC(RS)=13 THEN LOCATE 5. 10:PRINT 
CHR$(18) :FLAG=1:G0T0 200 

270 IF R$S="N" THEN FOR I= { TO 4:READ A$ 
:LOCATE 3,15+1:PRINT Af:" : ":BS(T):NEXT 
280 1F R$="N" GOTO ZED 

290 GOTO 250 

300 REM 

310 REM AFFICHAGE REPONSE ECRAN 

20 REM 

330 N=0:X1=X:B$="":PRINT INVERSES 

340 Z=X:X=(X4LEN(FES))-1:REM PREPARE LA 

POSITION DE DEPART DES CARACTERES 

350 LOCATE Z,Y:PRINT FES:REM BFFICHE LA 
FENETRE EN INVERSE VIDE 

360 ÏF FLAG=1 THEN LOÜCATE X-LEN(RS(T) +1 
.Y:PRINT E$(T) 

370 CS=UPPERS(INKEYS):IF C$="" GOTO 370 
JeÙ C=ASC(C$) 

390 IF C=127 THEN X=X1:PRINT INVERSES: G0 
TO JJO:REM ANNULE SI ERREUR DANS LA REPQ 
NSE (TOUCHE DEL) et remet je À dans 52 2 

osition de depart. 

400 IF C=13 GÔTO 470:REM SORTIS SI TERMI 

NE 

410 IF N=LEN(FES) GOTO 370:REM ARRETE L° 

AJOUT DE CARACTERE DEFINI PAR LA FENETRE 

420 B$=B$+C$:REM CONCATENATION DES CARAC 

TERES POUR FORMER LA REPONSE FINALE 

430 IF FLAG=1 AND N=0 THEN LOCATE 2,Y:PR 
INT FE$ ; 

44 LOCATE X,Y:PRINT B$:X=X-1:REM AFFICH 

E LA REPONSE EN COURS ET PREPARE L'EMPLA 
CEMENT DU MOT CONCATENE SUIVANT 

450 N=N+1:REM COMPTEUR DU NOMBRE DE CARA 
CTERES DEFINI PAR LA FENETRE FE$ 

4ë0 GOTG 370 

470 IF FLAG=1 THEN IF N=0 THEN B#=ES(T): 

X=Y-LEN(ES$) 

480 PRINT INVERSES:LOCATE Z,Y:PRINT FES: 


RETURN 
490 DATA NOM.PRENOM.TEL PERSO.TEL TRAV 








bon de commande 


REPORT 


ABONNEMENT ANCIENS NUMÉROS 


CPC Revue des Utilisateurs d'Amstrad/Schneider Ü 5, 6, 8,9, 10, 11, 12, 13 19F 
Attention : votre abonnement débutera avec le O 7 25 F 
numéro suivant le mois d'envoi de votre chèque. 





[] Hors Série n° 1 avec cassette 42F 
Entourez le (ou les) numéro(s) commandé(s). 





Abonnement 1 an à 11 numéros 180 F 
[l Abonnement 6 numéros 104 F 


[ Abonnement d'essai 55 F REVUES MÉGAHERTZ 


CO Supplément pour tarif avion 120 F 








[] MHZ N° 30 avec programme 
sur QRA Locator 


[D MHZ N° 33 avec décodage 
CASSETTES des radiotélétypes 
[] MHZ N° 41 avec mail-box 
sur AMSTRAD 





1 cassette représente 1 numéro 

[ abonné 45 F 
[] non abonné BBF = — 
[] abonnement cassettes (11 n°) 450 F LIVRES 














© Mieux programmer sur AMSTRAD 
DISQUETTES Michel ARCHAMBAULT 85 F 


| , : 0 Communiquez avec AMSTRAD 
1 disquette contient deux numéros de CPC D. BONOMO - E. DUTERTRE 90 F 


sauf les Hors-Série 1 et 2. 
abonné 110F © Jouez avec AMSTRAD 
Kerloch 48 F 


0 Programmes utilitaires pour AMSTRAD 
Michel ARCHAMBAULT 85 F 


Q L'Univers des PCW 
Patrick LEON 119F 


RELIURE CPC O Cassette 


Communiquez avec AMSTRAD 190 F 
Pour conserver vos revues intactes. 0 Disquette 


[] abonné Communiquez avec AMSTRAD 250 F 
[ non abonné es 7 PORT : 10 % en plus. 
TOTAL GENERAL ______ 














[] non abonné 140 F 
[ abonnement disquettes (6) 600 F 

















Adresse 
Code Postal 


Ci-joint un chèque libellé à l’ordre de : Editions SORACOM. Retournez le(s) bulletin(s) ou une photocopie à : 
Editions SORACOM La Haie de Pan - 35170 BRUZ. 





34 


EN FINI 


E LECTEUR D" 1/4 
pour AMSTRAD 


D00 K * à 1 M OCTETS à partir de 
1599 FTIC 
J'@ LE JASMIN AM 5D 


le 2e lecteur double têtes, double ou quadruble densité, 
indispensable pour votre AMSTRAD 
CPC 464 - 664 - 6128 et PCW 8256/8512 


Ne payez plus vos disquettes 3" 
à 60 F, on trouve des disquettes 
D" 1/4 à moins de 7 F 


Accéder à toute la bibliothèque CP/M éditée sur 5” 1/4 


grâce aux utilitaires disponibles chez « WILD WEST », 
84760 St-Martin de la Brasque. Tél. : 90.77.61.36 


JA SUN EU DD, qe lecteur double têtes Puissant mais Econome 


Plus besoin de retourner la disquette. La sélection de face se fait par inverseur avec indicateur lumineux. 
Lecteur 5’’ 1/4 JASMIN AM5D-500 K : double têtes, double densité 360 K formatté, entiè- 
rement compatible AMSDOS,CP/M2.2 et CP/M +, livré avec disquette utilitaire de formattage et de duplica- 
tion. de :disquetté..s 23.23 5280 nacre ais et mene tre Sous eicre 1599,00 F TTC 
Lecteur 5” 1/4 JASMIN AMH5D + - 1 M : double têtes, quadruble densité, 720 K for- 
matté, entièrement compatible AMSDOS et CP/M ., livré avec disquette utilitaire de duplication, format- 
tage et utilisation en 80 pistes. ................................... 1799,00 F TTC 
Cable de liaison pour CPC 6128/664..................... 155,00 F TTC 
Adaptateur AD 12 - VDC : pour l'utilisation avec des moniteurs sans sortie 12 V.60,00 F TTC 
Kit de liaison du JASMIN AMP5D + : avec le PCW 8256/8512. ..250,00 F TTC 
Jasmin-Booster : adaptateur à rajouter derrière l'AM5D ou AMSD + leur permettant d'être utilisé en maître ou esclave, 













et pour le lecteur 1 M de se comporter en 500K. Disponible en octobre : Prix indicatif. . . . ..... 350,00 F TTC 
Disquettes 5” 1/4, l'unité.................................. 7,00 F TTC 
Imprimante spéciale AMSTRAD AM PRINTER : Silencieuse - 50 CPS - Qualité cour- 
rier - 132 colonnes en contractées. ................................ 1995,00 F TTC 
Cable CENTRONICS pour AMSTRAD TR 175,00 F TTC 


Les prix en boutique comprennent le port. 
AMSTRAD - CPC 464 - CPC 664 - CPC 6128 et PCW 8256/8512 - AMSDOS sont des marques déposées d'AMSTRAD. JASMIN AM-5D est une marque déposée de T.R.A.N. sarl. CP/M est une marque déposée de Digital Research 


* 500 K et 1 M octets, non formattés Tous nos prix sont en fonction de nos stocks au 1° Septembre 1986 
BON DE COMMANDE à T.R.A.N. sarl - 53, impasse Blériot NOUVEAU PAYEZ PAR CARTE BLEUE / INTERBANCAIRE 
83130 LA GARDE - Tél. : 94.21.19.68 
Crédit possible. Nous téléphoner Le Date d'expiration — | Signature 





Veuillez m'envoyer d'URGENCE Désignation | Quentté | Pxuni. rre | were | 





Forfait de Port express en France pour achat de plus de 500 F TTC : 100,00 F TTC - Forfait de Port en France pour achat de moins 500 F : 40,00 F TTC 
065 > mamos Supplément Contre-Remboursement : 120,00 F TTC 





MEURRE SR 


Tandis que la situation politique s'aggrave 





en Europe, au Havre le plus grand et le plus 


luxueux paquebot du monde appareille pour 





New-York. A son bord, une clientèle 


fortunée et insouciante... et, pourtant Ÿ 
un drame va se jouer pendant la traversée. LES 
Vous vous trouverez ainsi projeté 

# » É à 


au coeur de la plus incroyable histoire A 
d'espionnage qui permit aux alljé si | 








de gagner la seconde guerré 
5 ans plus tard. 


à 
Un logiciel imaginé et réalisé par Bertrand BR 
avec Marie-Anne ALISON. 


Cassette : 220F - Disquette: 279F - Ajoutez 15 F de port 





Commandes à COBRA SOFT BP 155 - 71104 Chalon sur Saône Cedex 


